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REM x 

IDENTIFICATION 

PRODUCT CODE: MAINDEC-11-DZ0UR-B-D 

PRODUCT NAME: OUVi1 OFFLINE RECEIVER TESTS 

, RELEASE DATE: NOV 1$77 

MAINTAINER : DIAGNOSTICS 
x 
REM 


COPYRIGHT (C) 1977 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS 


THE INFORMATION IN fHIS DOCUMENT 1S SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUEU AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY AFPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY GNLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 


DIG!TAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL. 





DZDUR-B MACY11 30(1046) 21-SEP-77 09:08 PAGE 2 


DZDUR1. M11 15-SEP-77 10: 10 SEQ 0002 
REM & 
GENERAL DESCRIPTION 
THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S. THIS MEANS THAT 
16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 
AND CONTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL 
HAL TED. 
+ 
REM x 
+ THE DUV11 OFFLINE RECEIVER TESTS VERIFY THAT THE RECEIVER 
CHIP/LOGIC WORKS PROPERLY 
x 
REM x 


2 REQUIREMENTS 
PDOP-11/03 COMPUTER (LSI) 
DUV11 SYNCRONOUS/ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 


3. LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
1S TO BE USED. 


STARTING ADDRESS 
FOR ABSOLUTE LOADER 


4K 017500 
8K 037500 
12K 057500 
16K 077500 
20K 117500 
24K 137500 
28" 157500 

4. STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 


NOTE: ALL SWITCHES RESIDE INTERNAL TO THe CPU AT ADDRESS 
176. THESE MAY BE SET ViA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC 176. 


NOTE: RUNNING UNDER APT-11, THERE 1S A USER SWITCH REGISTER 
CALLED “SUSWR". IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
H315 CONNECTOR. ONE BIT PASSES STATUS TO APT-11. 
BIT O IN SUSWR REFLECTS THIS STATUS, A O = CONNECTOR 
PRESENT. A 1 = CONNECTOR NOT AVAILIBLE. 
THE USER CHANGES THE CONTENTS OF THIS LOCATION 
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WHEN BUILOING THE E TABLE. BY ANSWERING THE 
PROMPT “SWITCH 2". 
4.1.1 AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


SWOO0=1 
4.1.3 TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 
SWO1=1 
41.4 TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
CONLY IN SINGLE DEVICE TESTS) 
SW14=1 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 
NOTE2: WITHOUT SWO1=1 “LOCK ON TEST" WILL DEFAULT TO TEST 1 
4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS 1S 000200 
THE RETARTING ADDRESS FOR ALL TESTS iS 000200 
THE STARTING ADDRESS TO ENTE® A SELECTED TEST 1S 000200 
THE STARTING ADDRESS TO LOCK ON TEST 1S 000200 
4. 3 PROGRAM AND/OR OPERATOR ACTION 
4.3.1 INITIAL PROGRAM START 
4. 3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4.3.1.3 TYPE 200G 
4. 3.1.4 PROGRAM WILL START. 


. REM x 
4. 3.1.5 THE PROGRAM WILL TYPE “DUV11 DZDUR-B TAPE B” (ONCE ONLY) 


4. 3.1.6 THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT 1S ABOUT 
TO START TESTING - AND THEN TESTING WILL BEGIN 

4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4. 3.2.1 THE PROGRAM WILL TYPE “R" AND WILL COMMENCE TESTING 


4.3.3 PROGRAM RESTART WITH SWOO=1 
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4. 3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 2006. 
4. 3.3. 3 PROGRAM WILL START. 
4. 3.3.4 THE PROGRAM WILL TYPE “ 1ST DEVICE: RECEIVER CONTROL REGISTER 


£ 


4. 


ADDRESS" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 


REGISTER ADDRESS OF THE DUVi1 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "?" 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3.3.4 


3. 3.6 THE PROGRAM WILL TYPE “VECTOR ADDRESS-" AND WAIT FOR AN 


INPUT FROM THE TELETYPE KEYBOARD 


y 


.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 


FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETUPN> 


IF AN INCORRECT ADDRESS IS TYPED . THE PROGRAM WILL TYPE "“?" 
ANC WILL THEN REPEAT THE MESSAGE OF 4. 3.3.6 


. 3.3.8 THE PROGRAM WILL TYPE “ARE YOU RUNNING MULTIPLE DEVICES ?" 


(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 


<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE “?”" 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A "NO" ANSWER 1S GIVEN: JUMP TO SECTION 4. 3.3.12 
IF A “YES" ANSWER IS GIVEN: THE NEXT QUESTION iS ASKED 


ee THE PROGRAM WILL TYPE “LAST DEVICE: RECEIVER CONTROL 
REGISTER ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


ADORESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER 1S TYPED . THE PROGRAM WILL TYPE ‘?” 
AND WILL THEN REPEAT THE MESSAGE OF 4. 3. 3.10 
NOTE: ALL ADDRESSES SHALL BE CONTIGUOUS 


os & 9.7% IF AN “OUT OF RANGE” ADDRESS IS TYPED 


IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS)... .. THE 
PROGRAM WILL TYPE “OUT OF RANGE: RETYPE LAST DEVICE RXCSR ADDRESS-” 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
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43.3. 11 


%. 3.3.1 


2321 


4.3.3.1 
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.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN) 


IF AN INCORRECT ANSWER IS TYPED . THE 40 sty WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.11. 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED........... 
. SCHOOLS OUT......... THERE 1S NO PROTECTION FOR THIS. 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS). THE SAME APPLIES TO IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


12 THE PROGRAM WILL TYPE “# OF SYNC CHARS 


SELECTED (1 OR 2)-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
Ayeny 3 REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 
SWITCH E55-4. 


3 TYPE IN THE APPROPRIATE ANSWER “1” OR “2" FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST 
BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.12 


14 THE PROGRAM WILL TYPE " IS SEC XMIT SWITCH E55-2 ON? (Y OR N)-" 


AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.14 


6 THE PROGRAM WILL TYPE "IS SEC REC SWITCH E55-3 ON? 
(Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


17 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SANE) 


IF AN INCORRECT ANSWER IS TYPED . THE PROGRAM WILL TYPE ‘?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.16 


18 THE PROGRAM WILL TYPE “IS OPT CLR ENABLE SWITCH 


E55-1 ON? (Y OR N)-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


19 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


SEQ 0005 | 
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IF AN INCORRECT ANSWER |S TYPED . THE PROGRAM WILL TYPE "?” 
AND WILL REPEAT THE MESSAGE OF 4. 3.3.18 


4. 3. 3. 20 THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT 
MODE EXTERNAL ? AND...... DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-" AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


%. 3, 3. 21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,. THE PROGRAM WILL TYPE "?" 
AND WILL REPEAT THE MESSAGE OF 4.3 3.20 


&. 3.23.22 THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


43.4 PROGRAM RESTART WITH SWO1=1 


NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
»>, tT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


| 
IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED.LOAD 000200. 
AND SELECT SWOO=1 AND ANSWER "NO" TO THE MULTIPLE DEVICE QUESTION 
SEE 4. 3.3 
43.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4.3.4.2 TYPE 2006. ‘ 
4. 3.4.3 PROGRAM WILL START. 
4.3.4.4 THE PROGRAM WILL TYPE “TEST PC-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 
4. 3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM iS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> , 
4.3.4.6 THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 
NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT 1S IN THE MIDDLE OF A TEST 
4.3.5 PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED . 
SEE NOTE IN 4. 3.4 FOR MORE DETAILS 
4.3.5.1 SET SWi4=1 IN SWITCH REG (LOC. 176) 
4.3.5.2 TYPE 2006. 
4. 3.5. 3 PROGRAM WILL START. 


-_— eo 6 
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4.3.5.4 THE PROGRAM WILL TYPE “LOCK ON SELECTED TEST ? (Y OR N)-" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE tease YES OR NO FOLLOWED BY A 
CARRIAGE RETURN> 


IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 


AND THE PROGRAM WILL TYPE "R" TO INDICATE THAT IT HAS STARTED 


TESTING AT TEST i 


4.2.5.6 IF A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS. . 


THE PROGRAM WILL TYPE “R" TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
OR \F ANY KEY IS STRUCK ON THE TELETYPE . THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 

THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1_ IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU. ACCESSED VIA LOC 


SW15 =1 HALT ON ERROR 

SW14 =1 LOOP ON CURRENT TEST 

SW13 =1 INHIBIT ERROR TYPEOUT 

SW11 =1 INHIBIT 1 TERATIONS 

SW10 =1 ESCAPE TO NEXT TEST ON ERROR 

SWO9 =1 LOOP ON ERROR 

SWO1 =1 RESTART PROGRAM AT SELECTED TEST 

SWOO =1 RESELECT VECTOR AND CONTROL REGISTER ADRESSES 


BRPARAMETERS AFTER A PROGRAM RESTART 
TO INHIB,T “END OF PASS” TYPEOUT - TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LS! ALL HALT ERRORS RETURN CONTROL T0 0.0 T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = ERROR PC 
WHERE PC +2 1S THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 


REFER TO THE ABOVE “HLT” IN DIAGNOSTIC FOR ERROR DESCRIFTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC +2 = REGISTER ERROR PC 

REGISTER EXPECTED ACTUAL 

16XXXX YYYYYY 222222 

WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


WHERE YYYYYY 1S THE EXPECTED CONTENTS OF THAT REGISTER 


176). 


SEQ 0007 | 
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WHERE 222222 |S THE ACTUAL CONTENTS OF THAT REGISTER 


PC +2 = RECEIVER ERROR PC 
REGISTER EXPECTED ACTUAL 
16XXXX YYYYYY 222222 


WHERE 16XXXX 1S THE ADDRESS OF THE FRILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY 1S THE EXPECTED DATA CONTENTS OF THAT REGISTER 

WHERE 222222 |S THE ACTUAL DATA CONTENTS OF THAT REGISTER 

PC +2 = TRANSMITTER ERROR PC 

ro 5 

WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY 1S THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 1S THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


SW15 =0 
1F THE PROGRAM IS RUN WITH SWiS =O .NO OPERATOR ACTION IS 
REGUIRED TO CONTINUE TESTING 


SW15 =1 

IF THE PROGRAM IS RUN WITH SW15 =1 .TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED . PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE “HLT” WILL BE DISPLAYED IN THE DATA LIGHTS 


ILLEGAL INTERRUPTS 

iF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION. THE PROGRAM WILL HALT IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM 

HALTS 1S 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT 


CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY 


LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS 


END OF PASS ROUTINE 
THIS TYPEQUT IS MENTIONED HERE FOR CONVENIENCE 
IT 1S IN THE FORM: 


END OF PASS TAPE Y 


7 eae 


SEQ 0008 
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7.2 


7.21 


7.2.2 


7.3 


7.2.3 
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16XXXX = DEVICE 

WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT - TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE “ZERO: ADD #10,BASEIV NEXT BLOCK 
(VECTORS)" TO "ZERO: ADD #0, BASE IV"; 

THEREBY THE VECTOR ADDRESSES WILL NOT BE 

UPDATED AFTER EACH PASS. 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT O FOR 
DEVICE O .BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES 


IF DEVICE O IS TO BE DISQUALIFIED . SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


1F HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTPEG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 

AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART... TYPE 2006. . 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


ae >} ee Oe sess. SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G... 
ANSWER THE QUESTION : 1ST DEVICE : ETC........... 
.... THE PROGRAM WILL CONTINUE WITH DEVICE 0 


7.2.2.3 IF ALL NEVICES ARE DISQUALIFIED BY MISTAKE THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE....... TYPE 200G 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODE CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE. 

LOCATION “HOLD: " MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES 
PRESENTLY "HOLD: " =20 1S SUFFICIENT TIME ON AN 11/03 MACHINE 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


TO USE THE "XOR" TESTER . THE BRANCH AROUND THE “XOR™ 
CODE MUST BE PATCHED TO A “NOP”. (SEE LISTINGS FOR DETAILS) 


SEQ 0009 
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8. DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010 
VECTOR ADDRESS- DURIV: 770 
ARE YOU RUNNING MULTIPLE DEVICES ?- NO MULTO: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 
1S SEC XMIT SWITCH E55-2 ON?- YES SEXMIT: 377 
1S SEC REC SWITCH E55-3 ON?- YES SEREC: 377 


1S OPT CLR ENABLE SWITCH E55-1 ON?- YES OPTCLR: 377 
DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 


CONNECTOR ON (H315)- YES JMRBY: 377 
9. PROGRAM DESCRIPTION . 
_ REM x 
9.1 THIS PROGRAM PERFORMS THE OFFLINE RECEIVER SECTION TESTING 
OF THE DEVILE 
SEE LISTING FOR DETAILS , 
_ REM x 


10. FLOW CHARTS: RECEIVER FLOW. TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
11. LISTINGS 
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$35 000001 STN=1 






nm 1 : 7 
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557 ENABLE ABS 

558 

559 ;DUV11 DZDUR-B TAPE B 

560 [COPYRIGHT 1977, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
562 ; STARTING PROCEDURE 

563 : TYPE 2006 

564 ;PROGRAM WILL TYPE “DUV11 DZPuR-B TAPE B ” 

565 | [PROGRAM WILL TYPE "R" TO IKOICATE TAT TESTING HAS STARTED 
566 [AT THE END OF A PASS, PROGRAM WILL T\PE "END OF PASS TAPE B” 
56? sh. » THEN RESUME TESTING 

569 SBTTL BASIC DEFINITIONS 

571 SRINITIAL ADDRESS OF THE STACK POINTER *x* 1100 44% 

572 001100 STACK: 1100 

573 “EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

574 EQUIV 10T. SCOPE BASIC DEFINITION OF SCOPE CALL 

576 MISCELLANEOUS DEFINITIONS 

577 000011 HT= 11 ;; CODE FOR HORIZONTAL TAB 

578 000012 LF= 12 >: CODE FOR LINE FEED 

579 000015 CR= 15 >: CODE FOR CARRIAGE RETURN 

580 000200 CRLF= 200 CODE FOR CARRIAGE RETURN-LINE- FEED 
581 177776 PS= 177776 ; PROCESSOR STATUS WORD 

582 EQUIV PS, PSH 

583 177774 STKLMT= 177774 ;; STACK LIMIT REGISTER 

584 177772 , PIRQ: 177772 PROGRAM INTERRUPT REQUEST REGISTER 
585 177570 DSWR= 177570 >: HARDWARE SWITCH REGISTER 

586 177570 DDISP= 177570 HARDWARE DISPLAY REGISTER 

588 | HGENERAL PURPOSE REGISTER DEFINITIONS 

589 000000 RO= %0 7;GENERAL REGISTER 

590 000001 Riz “4 GENERAL REGISTER 

591 000002 R2= %2 GENERAL REGISTER 

592 000003 R3= %3 >: GENERAL REGISTER 

593 000004 Ruz “4 GENERAL REGISTER 

594 000005 RS= 3 : GENERAL REGISTER 

595 000006 R6= %6 GENERAL REGISTER 

596 000007 R7= %? : GENERAL REGISTER 

597 900006 SP = % [STACK POINTER 

598 * 900007 PC= %? PROGRAM COUNTER 

59 a 

600 4 | EPRIORITY LEVEL DEFINITIONS 

601 000000 PRO= sO |; PRIORITY LEVEL 0 

602 000040 PRiz 40 SS PRIORITY LEVEL 1 

603 000100 PR2= «100 PRIORITY LEVEL 2 

604 000140 PR3=  —-140 PRIORITY LEVEL 2 

605 000200 PRu= 200 SS PRIORITY LEVEL 4 

606 000240 PR5= «240 >: PRIORITY LEVEL 5 

607 000300 PR6= —«- 300 SS ORIORITY LEVEL 6 

608 000340 pa7s >; PRIORITY LEVEL 7 

609 

610 H"SWITCH REGISTER” SWITCH DEFINITIONS 

611 100000 SW15= 100000 


040000 SWi4= 40000 
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020000 
010000 . 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
o00C002 
060001 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 

000010 
000004 
000002 
000001 


000004 
000010 
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15 
BASIC DEFINITIONS 


SW13= 
SW12= 


ee eee 
oc 2,O0O0O00s.--— 
NWF MON OWOP 


—+-- 


‘ SBwmwmwmwwwwwmwwo wD 
~ 
oO 
os 
" 


; XBASIC 
ERRVEC= 
RESVEC= 


SWO9, SHO 
SUO8, SHB 
SWO7, SH7 
S06, SW6 
SOS, SWS 
SWO4, SHY 
SWO3, SW3 
SW02, SW2 
SHO1, SW1 
SWO0, SHO 


Boawwwowwwoe-w+ 


B1 100, B1TO 
"CPU" TRAP VECTOR reo or 


4 ME OUT AND OTHER ERRORS 
10 — «RESERVED AND ILLEGAL INSTRUCTIONS 


BIT DEFINITIONS (B1TOO TO BIT15) 
00 


a kee ee ee ee 


SEQ 0013 
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C00014 
000014 
000014 
600020 
000024 
000030 
000034 
oc0060 
oco064 
600240 
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E 16 


BASIC DEFINITIONS 


TBITVEC= 


14 


TRIVEC= 14 


BPTVEC= 
1OTVEC= 
PWRVEC= 


EMTVEC= 30 


TRAPVEC= 


TKVEC= 
TPVEC= 


PIRQVEC= 


34 
60 
64 
240 


aa "T” BIT 

+; TRACE TRAP 

;;BREAKPOINT TRAP (BPT) 

3; INPUTZOUTPUT TRAP (I1OT) x¥#SCOPEXX 
;;+POWER FAIL 

;;EMULATOR TRAP (EMT) XXER*ORXX 

3+ "TRAP" TRAP 

3; TTY KEYBOARD VECTOR 

;; TTY PRINTER VECTOR 

3; PROGRAM INTERRUPT REQUEST VECTOR 


SEQ 0014 
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000174 
000176 


000200 


001100 
001102 


001104 
001106 
001110 
001112 
001114 
001116 


001120 
001122 
001124 
001126 
001130 
001132 
001134 
001136 
001140 
001142 
001144 
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000174 
000000 
000000 
000200 
000167 


001100 
o00c000 
177570 


000000 
co0000 
000000 
000000 
000000 
000000 


000020 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


001746 


BASIC DEFINITIONS SEQ 0015 
+STANOARD INTERRUPT VECTORS 


2174 
DISPREG: 0 
SWREG: 0 
. =200 
JMP _ START ;GO TO START OF PROGRAM 


. 21100 
WORD O 
LIGHTS: 177570 


;PROGRAM CONTROL PARAMETERS 


RETURN: 
NEXT: 
LOCK: 
PASCNT: 
ERRCNT: 
SAVSP: 


;ADDRESS OF NEXT TEST TO BE EXECUTED 
; ADDRESS FOR LOCK ON CURRENT DATA 

; ADDRESS CONTAINING PASS COUNT 
7ERROR COUNT 

; STACK POINTER STORAGE 


; PROGRAM VARIABLES 


; TEMPORARY STORAGE=DELAY TIME FOR CABLES 

; TEMPORARY STORAGE= # OF SHIFTS PER CHAR 

; TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
PROGRAM COUNTER STORAGE 


oooo0o 


HOLD: 
SHIFT: 
COUNT: 
SAVPC: 
HL DO: 
HLO1: 
HLD2: 
HLD3: 
HLD4: 
HLDS: 
HL D6: 


BOSS Seog 
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001146 
001147 
001150 
001151 
001152 
001153 


001154 
001156 
001160 
001162 
001164 
001166 


001170 


001172 


001173 
001174 
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;PROGRAM CONVERSATIONAL PARAMETERS 
377 SYNCNO: .BYTE 377 +# OF SYNC CHARS oe 0 FOR SYNC* ZATION 
377 SEXMIT: BYTE 377 ; SEC XMIT JUMPER “I 
377 SEREC: .BYTE 377 +SEC REC JUMPER “1N" 
377 OPTCLR: .BYTE 377 OPTIONAL JUMPER CLR "IN" 
000 MULTO: .BYTE 0 +NO MULTIPLE DEVICE FLAG 
377 gn ky .BYTE 377 EXTERNAL MODEM BYPASS JUMPER "IN" 
VEN 
PROGRAM MULTIPLE DEVICE PARAMETERS 
000000 BASEADD: 0 PROG CONTROLLED 1ST DEVICE ADDR 
000000 KEEPADD: 0 SAVED 1ST DEVICE ADDR 
ooc000 LASTADD: 0 LAST DEVICE RXCSR ADDR 
000000 BASE IV: 0 +PROG CONTROLLED IV 
000000 KEEP IV: 0 ; SAVED INTR VECTOR 
000000 ACTREG: 0 ACTIVE REGISTER ..,MODIFY THIS 
;LOCATION TO DISQUALIFY OR QUALIFY 
;DEVICES (1= RUN,,,O= DON'T RUN) 
000000 ROTADD: 0 ;ROTATING POINTER FOR ACTREG.. POINTS 
;T9 DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
;PROGRAM CONTROL FLAGS 
000 INIFLG: .BYTE OQ PROGRAM INITIALIZATION FLAG 
000 STFLG: .BYTE Q > TEST START FLAG 
000 LOKFLG: .BYTE 0 >LOCK ON CURRENT TEST FLAG 
001176 _ EVEN 
001400 . =1400 


‘ 
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19 
BASIC DEFINITIONS 


749 

750 

751 

i + INSTRUCTION DEFINITIONS 

754 005746 PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
755 005726 POP1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
756 010046 PUSHRO= 10046 SAVE RO ON STACK =MOV RO, -(SP) 
757 012600 POPRO=12600 s+RESTORE RO FROM STACK =MOV (SP)+,RO 
758 024646 PUSHZ2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP).-(SP) 
759 022626 POP 2SP=22626 ; INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
760 *REGISTER DEFINITIONS 

761 +RXCSR BIT DEFINITIONS 

762 100000 OSC=BIT15 DATA SET CHANGE 

763 040000 RING=B1T14 7 RING 

764 020000 CTS=B1T13 *CLR TO SEND 

765 010000 CARDET=B81T12 ; CARRIER DETECT 

766 004000 RECACT=BIT11 ;REC ACTIVE 

767 002000 SRO=BITIC SEC REC DATA 

768 001000 DSR=B1T9 DATA SET RDY 

769 000400 STPSYN=BIT8 STRIP SYNC 

770 000200 RXDONE=B1T7 +REC DONE 

771 000100 RINTEN=B1T6 ;REC INTR ENABLE 

772 000040 DSINTE=B1TS *0SC INTR ENABLE 

773 000020 SYNSCH=B1T4 SYNC SEARCH 

774 000010 STO=B1T3 ;SEC XMIT DATA 

775 000004 RTS=B1T2 REQ TO SEND 

776 000002 DTR=BIT1 ;DATA TERM RDY 

777 000001 vO10=B1TO 

778 +RXDBUF BIT DEFINITIONS 

779 100000 RXERR=B1T15 *REC ERROR 

780 040000 OVRRUN=B1T14 + OVERRUN 

781 020000 FRMERR=BIT13 *FRAME ERROR 

782 010000 PARER=B1T12 ; PARITY ERROR 

783 ;PARCSR BIT DEFINITIONS 

784 001000 PAREN=BIT9 PARITY ENABLE 

785 000400 EVPAR=BIT8 7EVEN PARITY SENSE 

786 ;PARCSR WROD DEFINITIONS 

787 030000 SYNINT=30000 SYNC EXTERNAL MODE 
788 020000 SYNEXT=20000 SYNC INTERNAL MODE 
789 000000 1SYMOD=0 > 1SOC MODE 

790 000000 FIVE=0 ;WORD LENGTH 5 BITS 

791 002090 $1X=2000 +WORD LENGTH 6 BITS 
792 004000 SEVEN=4000 ;WORD LENGTH 7 BITS 
793 006000 E 1GHT=6000 ;WORD LENGTH 8 BITS 
794 000000 NOPAR=0 *NO PARITY 

795 001000 ODDPAR=1000 ;0D0D PARITY 

796 001400 EVEPAR=1400 + EVEN PARITY 

797 ;TXCSR BIT DEFINITIONS 

798 100000 DNA=B1T15 +DATA NOT AVAILABLE 
799 040000 MTDATA=BIT14 ;MAINT DATA 

800 020000 CLK=BIT13 + CLK 

801 002000 BITW=B1T10 *BIT WINDOW 

802 000400 MRESET=BITS ;MASTER RESET 

803 000200 TXDONE =B 1 T7 > XMIT DONE 

804 000100 TXINTE=B1T6 >XMIT INTR ENABLE 


eee wen 
SEQ 0017 
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805 000040 
806 000020 
807 000010 
808 000001 
809 

810 000000 
811 004000 
812 010000 
813 014000 


20 
BASIC DEFINITIONS 


DNAINTE=B1 TS DONA _ INTR ENAB 
SEND=B1T4 + SEND 
HDXEN=B1T3 ; HDX/F DX 
BREAK=B1T0 + BREAK 

+ TXCSR WRO DEFINITIONS 
USER=0 USER MODE 
MINT=4000 ;MAINT INT MODE 
MEXT=10000 ;MAINT EXT MODE 
SYSTST=14000 + SYSTEM TEST MODE 


SEQ 0018 
























001400 
001400 
001402 
001403 
001404 
001406 
001410 
001412 
001414 
001415 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001435 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001455 
001456 
001457 
001460 


001462 
001464 
001466 
001470 
001472 
001474 
001476 
001500 
001502 
001504 
001506 
001510 
001512 
001514 
001516 
001522 
001523 
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001400 
000000 
0 


0 
000000 


000000 
000000 
000000 
000090 
000000 
000000 
000000 
009000 


000377 
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COMMON TAGS 


.SBTTL COMMON TAGS 


++ MAEXAAAAA TARA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AEA AEE 
*KTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
+*USED IN THE PROGRAN. 


SCMTAG: 

. WORD 
STSTNM: BYTE 
SERFLG: . BYTE 
$1CNT: WORD 
SLPADR: . WORD 
SLPERR: . WORD 
SERTTL: . WORD 
SITEMB: . BYTE 
SERMAX: . BYTE 
SERRPC: . WORD 
SGDADR: . WORD 
SBDADR: . WORD 
SGDDAT: . WORD 
SBODAT: . WORD 

WORD 

WORD 
SAUTOB: . BYTE 
SINTAG: . BYTE 

. WORD 
SHR: . WORD 
DISPLAY: . WORD 
STKS: 177560 
STKB: 177562 
STPS: 177564 
STPB: 177566 
SNULL: . BYTE 
SFILLS: . BYTE 
SFILLC: . BYTE 
STPFLG: . BYTE 
SREGAD: . WORD 
SREGO: WORD 
SREG1: WORD 
SREG2: WORD 
SREG3: WORD 
SREG4: WORD 
SREGS: WORD 
STMPO: WORD 
STMP1: WORD 
STMP 2: WORD 
STMP 3: WORD 
STMP4: WORD 
STMPS: . WORD 
STIMES: O 
SESCAPE: 0 
SBELL) .ASCIZ 
SQUES: ASCII 


SCRLF: 


ASCII 








SEQ 0019 


++ START OF COMMON TAGS 


++CONTAINS THE TEST NUMBER 
+;CONTAINS ERROR FLAG 

++CONTAINS SUBTEST ITERATION COUNT 
+; CONTAINS SCOPE LOOP ADDRESS 
+>CONTAINS SCOPE RETURN FOR ERRORS 
+;CONTAINS TOTAL ERRORS DETECTED 
+;CONTAINS ITEM CONTROL BYTE 

+; CONTAINS MAX. ERRORS PER TEST 

++ CONTAINS PC OF LAST ERROR INSTRUCTION 
++ CONTAINS ADDRESS OF ‘'GOOD' DATA 
+; CONTAINS ADDRESS OF ‘BAD’ DATA 
+;CONTAINS ‘'GOOD' DATA 

+;CONTAINS ‘BAD’ DATA 
++RESERVED--NOT TO BE USED 


>,AUTOMATIC MODE INDICATOR 
+, INTERRUPT MODE INDICATOR 


DSWR +;RADDRESS OF SWITCH REGISTER 
DOISP ;,ADDRESS OF DISPLAY REGISTER 
++ TTY KBD STATUS 
+, TTY KBD BUFFER 
>; TTY PRINTER STATUS REG. ADDRESS 
+; TTY PRINTER BUFFER REG. ADDRESS 
>; CONTAINS NULL CHARACTER FOR FILLS 
>; CONTAINS # OF FILLER CHARACTERS REQUIRED 
+>; INSERT FILL CHARS. AFTER A “LINE FEED" 
>; "TERMINAL AVAILABLE” FLAG (B1T<CG7>=0=YES) 
>; CONTAINS THE ADDRESS FROM 
>;WHICH (SREGO) WAS OBTAINED 
>; CONTAINS ((SREGAD)+0) 
>; CONTAINS ((SREGAD) +2) 
>; CONTAINS ((SREGAD) +4) 
>; CONTAINS ((SREGAD) +6) 
+; CONTAINS ((SREGAD) +10) 
>; CONTAINS ((SREGAD) +12) 
>;USER DEFINED 
>,USER DEFINED 
+, USER DEFINED 
+;,USER DEFINED 
+>,USER DEFINED 
>; USER DEFINED 
>;MAX. NUMBER OF ITERATIONS 
;ESCAPE ON ERROR ADDRESS 
helenae CODE FOR BELL 
7? tet He MARK 
cis > CARRIAGE RETURN 


OONDDO0O0C000K-O00000000 


to 


OoO0O000000000 00-hoO 
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001524 


001526 
001526 
001530 
001532 
001534 
001536 
001540 
001542 
001544 
001546 
001546 
001547 
001550 
001552 
001554 


001556 
001557 


001560 


001562 
001563 
001564 
001566 
001567 
001570 
001572 
001573 
001574 
001576 
001600 
001602 
001604 
001606 


001610 . 


001612 
001614 
001616 
001620 
001622 
001624 


000012 


000000 
000000 
000000 
000000 
000000 
o0c000 
000000 
000000 


000 
000 
000000 
000000 
Coo000 


000 
000 


000000 


000000 
000000 
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COMMON TAGS 


SLF: 


.ASCIZ 


<12) 


++LINE FEED 


5p AAXKAKAAA AREA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAS 
.SBTTL APT MAILBOX-ETABLE 


Pe £292 9999 959990955955 0959555555550252255 090220299229 299 0200208 8: 
. EVEN 


SDDHS: 


: . BYTE 
: . BYTE 


AMSGLG 


RENV 
AENVM 
ASWREG 


. AUSWR 


ACPUOP 


AMANS1 
ANTYP 1 


AMADR 1 


AMANS2 
AMTYP2 
AMADR2 
AMANS3 
ANTYP3 
AMADOR 3 
AMAMS4 
ANTYP4 
AMADRY 
AVECTI 
AVECT2 
ABASE 
ADE VM 
ACOW1 
ACOW2 
ADOWO 
ADOW1 
ADOW2 
ADDS 
ADOWY 
ADOWS 


;;APT MAILBOX 
;; MESSAGE TYPE CODE 
;+FATAL ERROR NUMBER 
++ TEST NUMBER 
+; PASS COUNT 
+;DEVICE COUNT 
+; 170 UNIT NUMBER 
;;MESSAGE ADDRESS 
>; MESSAGE LENGTH 
;;APT ENVIRONMENT TABLE 
>; ENVIRONMENT BYTE 
>; ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01, 11705=02. 11/20=03, 11740=04, 11745=05 
11/70=06. PDQ=07, Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE, BLK&@1 
MEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;; HIGH ADDRESS. BLK#1. 
MEM. LAST ADDR. =3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
;;HIGH ADDRESS.M.S. BYTE 
>; MEM. TYPE, BLK&2 
;; MEM. LAST ADDRESS. BLK#2 
;;HIGH ADDRESS. M. S. BYTE 
>; MEM. TYPE. BLK#3 
;;MEM. LAST ADORESS. BLK#3 
;;HIGH ADDRESS. M. S. BYTE 
>; MEM. TYPE. BLK&4 
;;MEM. LAST ADDRESS. BLK&#4 
3, INTERRUPT VECTOR#1,BUS PRIORITY#1 
>; INTERRUPT VECTOR&2BUS PRIORITY#2 
3;,BASE ADDRESS OF EQUIPMENT UNDER TEST 
;>DEVICE MAP 
;; CONTROLLER DESCRIPTION WORD#1 
>; CONTROLLER DESCRIPTION WORD#2 
;;DEVICE DESCRIPTOR WORD#O 
;;DEVICE DESCRIPTOR WORD#1 
;;DEVICE DESCRIPTOR WORD#2 
;;DEVICE DESCRIPTOR WORD#3 
;;DEVICE DESCRIPTOR WORDS4 
;;DEVICE DESCRIPTOR WORDSS 
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| 
DZ2DURB. M11 31-MAY-77 09: 48 APT MAILBOX-ETABLE SEQ 0021 | 

926 001626 000000 $00W6: .WORD ADDWE ;; DEVICE DESCRIPTOR WORD#E 

927 001630 000000 $D0W7: . WORD ADDW7? ;; DEVICE DESCRIPTOR WORDS? 

928 001632 000000 S$DOW8: .WORD ADOWS ;; DEVICE DESCRIPTOR WORD#S 

929 001634 000000 SDDW9: . WORD ADDWS ;; DEVICE DESCRIPTOR WORDS9 

930 001636 000000 SDDW10: .WORD ADDWIO ;; DEVICE DESCRIPTOR WORD#10 

931 001640 000000 SDOW11: .WORD ADOW11 ;; DEVICE DESCRIPTOR WORD#11 

932 001642 000000 S$DDW12: .WORD ADDWI2 ;; DEVICE DESCRIPTOR WORD#12 

933 001644 000000 S$DDW13: .WORD ADDW13 +; DEVICE DESCRIPTOR WORD#13 

934 001646 000000 SODW14: .WORD ADOWI4 ;; DEVICE DESCRIPTOR WORD#14 

don 001650 9000000 SODW15: .WORD ADDWIS ;; DEVICE DESCRIPTOR WORD#15 

937 


001652 SETEND 





| 
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005746 
005726 
010046 
012600 
O24646 
022626 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


100000 
040000 
020000 
010000 


001000 
000400 


030000 
020000 
000000 
000000 
002090 
004000 
006000 
000000 
001000 
091400 


100000 
040000 
020000 
002000 
000400 
000200 
000100 
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APT MAILBOX-ETABLE 


+ INSTRUCTION DEFINITIONS 


PUSH1SP=5746 ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
POP 1SP=5726 + INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
PUSHRO= 10046 SAVE RO ON STACK =MOV RO, -(SP) 
POPRO=12600 RESTORE RO FROM STACK =MOV (SP)+,R0 
PUSHZ2SP=24646 ;DECREMENT STACK TWICE =CMP -(SP),-(SP) 
POP2SP=22626 + INCREMENT STACK TWICE =CMP (SP)+, (SP)+ 
REGISTER DEFINITIONS 

+RXCSR BIT DEFINITIONS 


OSC=BIT15 +DATA SET CHANGE 
RING=B1T14 +RING 
CTS=BIT13 CLR TO SEND 
CARDET=B1T12 CARRIER DETECT 
RECACT=BIT11 ;REC ACTIVE 
SRO=B1T10 *SEC REC DATA 
DSR=BIT9 ;DATA SET RDY 
STPSYN=BIT8 + STRIP SYNC 
RXDONE=B1T?7 +REC DONE 
RINTEN=B1T6 *REC INTR ENABLE 
DSINTE=BITS ;O0SC INTR ENABLE 
SYNSCH=B81T4 SYNC SEARCH 
STD=BIT3 +SEC XMIT DATA 
RTS=BIT2 REQ TO SEND 
DTR=BIT1 ;DATA TERM RDY 
VO1D=B1TO 

+ RXDBUF BIT DEFINITIONS 
RXERR=B1T15 7REC ERROR 
OVRRUN=B1T14 + OVERRUN 
FRMERR=B1T13 ;FRAME ERROR 
PARER=B1T12 PARITY ERROR 

;PARCSR BIT DEFINITIONS 
PAREN=BIT9 PARITY ENABLE 
EVPAR=BIT8 > EVEN PARITY SENSE 

;PARCSR WROD DEFINITIONS 
SYNINT=30000 SYNC EXTERNAL MODE 
SYNEXT=20000 SYNC INTERNAL MODE 
1\SYMOD=0 > ISOC MODE 
FIVE=0 ;WORD LENGTH 5 BITS 
$1X=2000 +WORD LENGTH 6 BITS 
SEVEN=4000 ;WORD LENGTH 7 BITS 
E |GHT=6000 ;WORD LENGTH 8 BITS 
NOPAR=0 +NO PARITY 
ODDPAR= 1000 ODD PARITY 
EVEPAR=1400 + EVEN PARITY 

;TXCSR BIT DEFINITIONS 
DNA=B1T15 ;DATA NOT AVAILABLE 
MTOATA=B1T14 MAINT DATA 
CLK=BIT13 + CLK 
BITW=BIT10 BIT WINDOW 
MRESET=BITS MASTER RESET 
TXDONE =B | T7 ;XMIT DONE 
TXINTE=B1T6 ;XMIT INTR ENABLE 


SEQ 0022 
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000040 
000020 
000010 
000001 


000000 
004000 
010000 
014000 
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APT MAILBOX-ETABLE 


DNAINTE=B1TS 
SEND=B1T4 
HOXEN=B1T3 
BREAK=B1T0O 

+ TXCSR WRO 
USER=0 


MINT=4000 
MEXT=10000 
SYSTST=14000 


;DONA INTR ENAB 

+ SEND 

> HOX/FOX 

; BREAK 
DEFINITIONS 

;USER MODE 

;MAINT INT MODE 


+MAINT EXT MODE 
+ SYSTEM TEST MODE 


SEQ 0023 
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DZDURB. M11 31-MAY-77 09: 48 ERROR POINTER TABLE SEQ 0024 
aon .SBTTL ERROR POINTER TABLE 
1009 ;XTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1010 ;XTHE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
1011 ;XLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1012 + XNOTE1: IF SITEMB 1S O THE ONLY PERTINENT CATR IS (SERRPC). 
ae + KNOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1015 +x EM ++POINTS TO THE ERROR MESSAGE 
1016 ix DH +;POINTS TO THE DATA HEADER 
1017 x DT +;POINTS TO THE DATA 
as ;* OF ;;POINTS TO THE DATA FORMAT 
1020 
1021 001652 SERRTB: 
1022 ERROR TABLE 
1023 001652 001762 EM1 sERROR 1 REGISTER ERROR 
1024 001654 002067 DH1 
1025 001656 002116 OT1 
1026 001660 002132 OF 1 
1027 001662 C02022 ; EN2 sERROR 2 RECEIVER ERROR 
1028 001664 002067 DH1 
1029 001666 002116 OT1 
1030 001670 002132 OF 1 
1031 001672 002043 EN3 sERROR 3 TRANSMITTER ERROR 
1032 001674 002067 DH1 
1032 001676 002116 OT1 
1034 001700 002132 DF 1 
1035 001702 001746 EM4 sERROR 4 BIT ERROR (GENERAL ) 
1036 001704 900000 0 
1037 001706 002126 DT4 
1038 001710 002132 OF 1 
1039 ; 
1040 DEFAULT DU ADDRESSES 
1041 001712 160010 RXCSR: 160010 
1042 001714 160011 HRXCSR: 160011 
1043 001716 160012 RXDBUF: 160012 
1044 001720 160013 HR XDBUF : 160013 
1045 001722 160012 ; PARCSR: 160012 
1046 001724 160013 HPARCSR: 160013 
1047 001726 160014 TXCSR: 160014 
1048 001730 160015 HTXCSR: 160015 
1049 001732 160016 TXDBUF: 160016 
1050 001734 160017 HTXDBUF : 160017 
1051 _—t DU VECTORS 
1052 001736 000770 DURIV: 770 ;REC INTR VECTOR 
1053 001740 000772 DURIS: 772 REC INTR STATUS 
1054 001742 000774 DUTIV: 774 ;XMIT INTR VECTOR 
1055 001744 000776 DUTIS: 776 ;XMIT INTR STATUS 
1056 ERROR MESSAGES 
1057 001746 020040 051105 047522 EM: .ASCIZ 7 ERROR PC 7 
1058 001754 020122 041520 000040 
1059 001762 020040 047503 050115 EM1: -ASCIZ 7 COMPARISON ERROR ON REGISTERS/ 


1060 001770 051101 051511 047117 
1061 001776 O42440 051122 051117 
1062 002004 047440 020116 042522 
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1063 002012 044507 052123 051105 

1064 002020 000123 

1065 002022 020040 042522 042503 ENZ: .ASCIZ 7 RECEIVER ERROR/ 
1066 002030 053111 051105 042440 

1067 002036 051122 051117 000 

1068 002043 O4O 052040 040522 ENS: .ASCIZ 7 TRANSMITTER ERROR/ 
1069 002050 051516 044515 052124 
1070 002056 051105 O42440 051122 
1071 002064 051117 000 

1072 DATA HEADERS FOR ERROR MESSAGES 
1073 002067 105 051122 041520 OHI: .ASCIZ ZERRPC WANTED ACTUALZ 
1074 002074 020040 040527 052116 

1075 002102 042105 020040 041501 


1076 002110 052524 046101 000 

iu/? 002116 . EVEN 

1078 DATA TABLES FOR ERROR MESSAGES 

1079 002116 001416 001130 001132 OT!1: .WORD SERRPC,HLDO, HLD1,0 

tee 002124 000000 

1081 

coat 062126 001416 000000 OT4: .WORD SERRPC,.O 

1 

1084 002132 000 000 000 OF1: .BYTE 0,0,0,0 

1085 002135 000 

1086 _ EVEN 

toed .SBTTL ACT11 HOOKS 

1 

1089 ' 55 MAAK RAAAAAE AAA AAA AAA AAA AAA AAR AAA RES 
1090 >HOOKS REQUIRED BY ACTI1 

1091 002136 SSVUPC=. SAVE PC 

1092 00G046 . 246 

1093 00004 012544 SENDAD ++1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 
1094 000052 . 52 

1095 000052 000000 ' .WORD O ++2)SET LOC.52 TO ZERO 

1096 002136 . =$SVPC ++ RESTORE PC 

1097 .SBTTL APT PARAMETER BLOCK 

1098 

1099 ee eee cee 
1100 SET LOCATIONS 24 AND 44 AS REQUIRED FOR A 

1101 Se AESESERSESNASSSNSUSSSURESESRSESEANSSSTRESEAANELSAASSEAANTEAES 
1102 002136 . $X=. +; SAVE CURRENT LOCATION 

1103 000024 224 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
1104 000024 000200 200 ;2FOR APT START UP 

1105 000044 =44 ;2POINT TO APT INDIRECT ADDRESS PNTR. 

1106 000044 002136 SAPTHDR ;;POINT TO APT HEADER BLOCK 

1107 002136 =.$X ;; RESET LOCATION COUNTER 

1108 Pett estestitttstisttt esti stittsst tsetse tsetse sees sso st esses sess 
1109 ; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1110 ; INTERFACE SPEC. 

1111 

1112 002136 SAP THD: 

1113 002136 000000 SHIBTS: .WORD O ++ TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 
1114 002140 001526 SMBADR: .WORD SNAIL ;; ADDRESS OF APT MAILBOX (BITS 0-15) 

1115 002142 000010 STSTM: .WORD 10 ++RUN TIM OF LONGEST TEST 

1116 002144 000010 SPASTM: .WORD 19 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
1117 002146 000000 SUNITM: . WORD ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
1118 002150 000052 -WORD SETEND-SMAIL/2 >; LENGTH MAILBOX-ETABLE (WORDS) 


DZDUR-B MACY11 30(1046) 


DZDURB. M11 


002152 


002152 
002156 
002160 
002164 
002166 


002172 
002200 
002206 
002214 
002222 
002230 
002236 
002244 
002252 
002256 
002262 
002270 
002276 


002304 
002310 
002316 
002324 
002332 
002340 


002342 
002344 
002350 
002352 
002360 
002366 


002372 
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012706 
005026 
022706 
001374 
012706 


012737 
012737 
012737 
012737 
012737 
‘012737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 


013746 
012737 
012767 
012767 
022777 
001012 


000403 
012716 
000092 
012767 
012767 
012637 


012767 


012706 
106427 
012737 


105067 


001400 
001440 
001100 


016170 
000340 
014060 
000340 
016524 
000340 
014662 
000340 
177234 
177232 
000001 
002270 
002276 


000004 
002344 
177570 
177570 
177777 


002352 


‘000176 


000174 
000004 


177136 
000200 


001550 


001100 
000340 
014662 
176535 


000020 
000022 
006030 
000032 
000034 
000036 
000024 
000026 


177125 
177110 
177104 


000004 
177114 
177110 
177100 


177060 
177054 


177143 
177024 


000024 
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8 
APT PARAMETER BLOCK | 


. START: 
. SBTTL 
>; CLEAR 


*PROGRAM INITIALIZATION 

*+LOCK OUT INTERRUPTS 

+SET UP PROCESSOR STACK 

+SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
+ TYPE TITLE MESSAGE 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 
MOV #SCNTAG, R6 +-FIRST LOCATION TO BE CLEARED 


CLR (R6)+ +; CLEAR MEMORY LOCATION 
CMP #SWR,.R6& ;; DONE? 
BNE .76 ++LOOP BACK IF NO 


MOV R#STACK, SP ++SETUP THE STACK POINTER 


waa A FEW VECTORS 


RSSCOPE, DRIOTVEC ;; 10T en FOR SCOPE ROUTINE 
MOV #340, OHIOTVEC+2 ¢ ; LEVEL 
MoV #SERROR, OHENTVEC ¢ > ENT VECTOR FOR ERROR ROUTINE 
MOV #340, OHENTVEC+2 7; LEVEL 7 
MoV #STRAP, ASTRAPVEC >; TRAP VECTOR FOR TRAP CALLS 
MOV #340, OSTRAPVEC+2; LEVEL 7 
MOV #SPWRON, DEPWRVEC ; > POWER D setae VECTOR 
MOV #340, OHPWRVEC+2 7; LEVEL 
+S INITIALIZE NUMBER OF ITERATIONS -- 
MOVB #1, SERMAX +7ALLOW ONE ERROR PER TEST 
MoV - » SLPADR 

+;SETUP THE ERROR LOOP ADDRESS 


MOV - SLPERR 
+;SbZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


++ EQUAL 


67S: 


TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MoV O@#ERRVEC,.-(SP) +; SAVE ERROR VECTOR 

MOV RO4S,9#ERRVEC +; SET UP ERROR VECTOR 
MOV #DSWR, SWR 
MOV #DOISP, DISPLAY +2AND A HARDWARE DISPLAY REGISTER 
CMP #-1. dSHR +2 TRY TO REFERENCE HARDWARE SWR 


BNE 66$ ++BRANCH IF NO TIMEQUT TRAP OCCURRED 


” +,AND THE HAROWARE SWR IS NOT = 
BR 65$ +;BRANCH IF NO TIMEOUT 
MOV #65S.(SP) * +;SET UP FOR TRAP RETURN 


MoV #SWREG, SWR +;POINT TO SOFTWARE SWR 
MOV #DISPREG. DISPLAY 


MOV (SP)+,@#ERRVEC ;; RESTORE ERROR VECTOR 

CLR SPASS +;CLEAR PASS COUNT 

BITB RAPTSIZE,SENVM +; TEST USER SIZE UNDER APT 

BEQ 673 ++ YES. USE NON-APT SWITCH 

MOV #SSWREG, SHR +7NO,USE APT SWITCH REGISTER 

MOV #STACK, SP SET STACK 

MTPS #340 *LOCK INTERRUPTS 

MoV &. PFAIL, d#24 +SET UP POWER FAIL VECTOR 


CLRB STFLG *CLEAR START FLAG 


CLEAR THE ESCAPE ON ERROR ADDRESS 
++ INITIALIZE THE LOOP ADDRESS FOR SCOPE 


+SETUP FOR A HARDWARE SWICH REGISTER 


«f 


SEQ 0026 


8 3 
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D2DURB. M11 31-MAY-77 09:48 INITIALIZE THE COMMON TAGS SEQ 0027 
1175 002436 005067 176450 CLR PASCNT + CLEAR PASS COUNT 
1176 002442 105067 176735 CLRE SERFLO + CLEAR ERROR FLAG 
1177 002446 005067 176740 CLR SERTTL + CLEAR ERROR COUNT 
1178 002452 005067 176740 CLR SERRPC CLEAR LAST ERROR POINTER 
1179 002456 012767 O00001 176716 MOV #1, STSTNM ;SET UP FOR TEST 1 
1180 002464 012767 002152 176412 MOV #. START, RETURN SET UP FOR POWER FAIL BEFORE 
1181 + TESTING STARTS 
1182 002472 013746 CO0005 MOV O#6, - (SP) 
1183 002476 013746 C00004 MOV a#4,-(SP) 
1184 002502 012737 002515 000004 MOV #15, 084 
1185 002510 005777 176724 TST OSWR 
1186 002514 000407 BR 2$ 
1187 002516 012767 000176 176714 i%: MOV #SWREG, SWR | 
1188 002524 012767 000174 176710 MOV #0 1SPREG, DISPLAY | 
1189 002532 922626 CMP (SP)+, (SP)+ 
1190 002534 012637 O00004 2%: MoV (SP)+, d#4 
1191 002540 012637 000006 MOV (SP) +, d#6 
1192 002544 022767 000176 176666 CMP #SWREG, SWR 
1193 002552 001007 BNE 3$ 
1194 002554 005737 000042 TST R42 CHECK FOR CHAIN 
1195 002560 001402 BEQ 33% 
1196 002562 000167 000522 JMP . BEGIN 
1197 002566 004767 010054 335: JSR PC, CNTLU 
1198 002572 105767 176374 35: TSTB INIFLG 7HAS INITIALIZATION BEEN PERFORMED 
1199 002576 001004 BNE ONCE 
1200 002600 104401 01£022 TYPE /MTITLE TYPE TITLE MESSAGE 
1201 002604 105167 176362 COMB INIFLG ,1F NOT SET FLAG AND DO 
1202 002610 105767 176732 ONCE: TSTB SENV ;APT CONTROL? 
1203 002614 001410 BEQ 11$ *BR IF NO 
1204 002616 032767 O00001 176726 BIT #1, SUSWR ;EXTENAL JUMPER ON? 
1205 002624 001002 BNE 12% ;NO 
1206 002626 105067 176321 CLRB JMRBY CLEAR FLAG 
1207 002632 000167 000452 12S: JMP . BEGIN *GO DO IT 
1208 002636 032777 O00001 176574 11%: BIT #SWO0, dSWR ;RESELECT VECTOR & CONTROL REG? 
1209 002644 001002 BNE 1$ 
1210 002646 000167 000436 JMP . BEGIN 
1211 002652 012700 000300 1$: MOV #300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
1212 002656 012701 000302 MOV #302,R1 ;START AT LOCATION 300 
1213 002662 012702 000004 MOV #4,R2 
1214 002666 010110 2: MOV Ri, (RO) 
1215 002670 005011 CLR (R1) 
1216 002672 060200 ADD R2,R0 
1217 002674 060201 ADD R2,R1 
1218 002676 022701 001000 CMP #1000, R1 END AT LOCATION 776 
1219 002702 002771 BLT 2$ 
1220 002704 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
1221 002706 015070 MREGAD ; MESSAGE 
1222 002710 104410 PARAM ;CONVERT STRING 
1223 002712 160000 160000 ;LOW ae 
1224 002714 167776 167776 =; HIGH LIMIT 
1225 002716 017020 DUBASE ;STORE ar THIS LOCATION 
1226 002720 001 Orme - I + MASK 
1227 002721 001 .BYTE 1 ;HOW MANY TIMES + 2 
1228 002722 016767 014072 176226 MOV DUBASE.KEEPADD ; SAVE 


1229 002730 004767 013732 JSR PC, DUADDR 
1230 002734 016767 176216 176212 MOV KEEPADD. BASEADD ; RESTORE FOR ROTATION 
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1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 


002742 
002744 
002746 
002750 
002752 
002754 
002756 
002757 
002760 
002766 
002774 
002776 
003000 
003002 
003004 


003010 
003012 
003016 
003022 
003026 
003026 
003030 
003032 
003034 
003036 
003040 
003042 
003043 


003044 
003052 
003056 
003064 
003066 
003072 
003074 
003102 
003110 
003112 


003120 
003126 
003134 
003136 
003144 
003146 
003150 
003152 
003154 
003156 
003160 
003161 
003162 
003166 


104406 


001152 
105767 


100406 
005067 
005067 
000167 


104406 


012767 
005067 
056767 
000241 
006167 
103421 
062767 
026767 
101362 
056767 


012767 
016767 
000414 
016767 


000167 
012767 
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176752 
176744 


176142 


176150 
176146 
000140 


000001 
176110 
176106 
176076 


000010 
176052 


176052 
000001 
176024 
176014 


177656 
000340 


176176 
176166 


176116 
176102 


176052 
176044 


176046 
176042 
176020 
176010 


013466 


. ¢ 
21-SEP-77 09:08 PAGE 30 Sit eR eo ee 
8 SEQ 0028 


INITIALIZE THE COMMON TAGS 
INSTR roe MESSAGE & GET INPUT STRING 


; MESSAGE 
PARAM ;CONVERT STRING 
300 ‘LOW LIMIT 
776 HIGH LIMIT 
DURIV ;STORE AT THIS LOCATION 
ove 4 ; MASK 
.BYTE 4 *HOW MANY TIMES + 2 
MOV DUR IV, KEEP IV + SAVE 
MOV DUR IV, BASE IV i; SET UP FOR ROTATION 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MMULT ;MESSAGE 
SETFLG ;+SET FLAG BASED UPON INPUT STRING 
MULTD ; THIS FLAG 
TSTB MULTO ;ARE THERE MULTIPLE DEVICES 
+ON THE SYSTEM 
BNI BBB + YES. ASK NEXT QUESTION 


ADD 
JMP OUTMUL ; JUMP AROUND NEXT QUESTION 


INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MLASTD ; MESSAGE 

PARAM ;CONVERT STRING 

160000 ;LOW a 

167776 =; HIGH LIMIT 

LASTADD ; STORE ar THIS LOCATION 


.BYTE 1 ; MASK 
BYTE 1 ;HOW MANY TIMES + 2 
; THE FOLLOWING ‘a aon SETS UP ACTREG FOR THE FIRST TIME 
1$: MOV #1,ROTADD +SET UP POINTER 
CLR ACTREG CLR ACTIVE REGISTER 
2$: BIS ROTADD.ACTREG ;MAKE THIS DEVICE ACTIVE 


ROL ROTRDD ;SET UP POINTER 

BCS 3$ ARE YOU OUT OF RANGE ? 

ADD #10, BASEADD +SET UP BASE ADDRESS 

CMP LASTADD. BASEADD ; 1S THIS THE LAST DEVICE ? 

BHI 2$ ;NO DO IT AGAIN 

BIS ROTADD. ACTREG ;THIS ASSUMES THAT THERE ARE AT 
;LEAST TWO DEVICES WHEN YOU ANSWER YES TO 
;MULTIPLE DEVICE QUESTION 

4S: MOV #1,ROTADD ;SET UP FOR LATER USE IN END OF PASS ROUTINE 
MOV KEEPADD. BASEADD ;- DITTO 
BR OUTMUL ; CONT !NUE QUESTIONS 


i 
3S: MOV KEEPADD., BASEADD ; RESTORE 
INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
MRANGE ; MESSAGE 
PARAN ;CONVERT STRING 
160000 -;LOW yrs 
167776 ;HIGH L 
LASTADD + STORE aT. THIS LOCATION 
.BYTE 1 MASK 
.BYTE 1 ; HOW MANY TIMES + 2 
JMP 1$ +00 IT AGAIN 
QUTMUL: MOV #340, DUPRT 
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003174 


003200 
003206 
003202 
003204 
003212 
003214 


003306 


003310 
003314 
003320 
003326 
003330 
003332 
003334 
003336 
003340 
003342 
003344 
003345 
003346 
003354 
003356 
003364 
003370 
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004767 


104406 
015461 
122767 
001003 
105067 
000412 
122767 
001004 
112767 
000462 
104407 
000757 
000240 
104406 
015527 
104414 
001147 
104406 
015600 
104414 
001150 
104406 
015650 
104414 
001151 
104406 
015727 
104414 
001153 


012706 
106427 
032777 
001413 
104406 


000177 


013412 


000061 
175726 
000062 
177777 


001100 
000340 
000002 


176030 


003374 
015407 
175510 


012610 


012572 
175706 


176112 


175530 
175520 


Dd 3 
O08 PAGE 31 
INITIALIZE THE COMMON TAGS 


JSR PC, DULEV 


SEQ 0029 


COMPARE THE FIRST CHARACTER " THE TELETYPE INPUT 
+BUFFER TO THE CHARACTERS "1" AND "2". 


;1F THE CHARACTER 1S "1" CLEAR THE FLAG 
_ + 1F THE CHARACTER 1S "2" SET THE FLAG 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MSYNC ; MESSAGE 
3: CMPB #'1, INBUF soa 07 “F" 7 
BNE 1$ 
CLRB SYNCNO ;000 
BR 4§ 
1$: CMPB #'2, INBUF 1S tT “2” 7 
BNE 2$ 
MOVB #~1, SYNCNO ;377 
BR 4 
23: INSTER ; RETRY 
BR 3$ 
4S: NOP 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIREG ; MESSAGE 
SETFLG ;SET FLAG BASED UPON INPUT STRING 
SEXMIT ;THIS FLAG 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIRES ; MESSAGE 
SETFLG ;SET FLAG BASED UPON INPUT STRING 
SEREC ;THIS FLAG 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MWIREY ; MESSAGE 
SETFLG ;SET FLAG BASED UPON INPUT STRING 
OPTCLR ;THIS FLAG 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MEXTJ ;MESSAGE 
SETFLG ;SET FLAG BASED UPON INPUT STRING 
JMRBY ; THIS FLAG 
TEST START AND RESTART 
BEGIN: MOV #STACK, SP SET UP STACK 
MTPS #340 >LOCK OUT INTERRUPTS 
BIT #SWO1, ASHR > 1F SWO1=1, GET STARTING PC 
BEQ 3$ 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MTSTPC +> MESSAGE 
PARAM ; CONVERT STRING 
TST1 +LOW er 
17500 =;HxIGH LIMIT 
STSTNM ; STORE ar THIS LOCATION 
.BYTE 1 + MASK 
.BYTE 1 ;HOW MANY TIMES + 2 
MoV STSTNM, RETURN 
BR 4$ 
3$: MOV #TST1, RETURN START AT TEST 1 
4$: TYPE rt ; TYPE R 
JMP RETURN > START TESTING 
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1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 


003374 
003376 
003404 
003412 


003420 


003426 
003434 


003442 
003450 


003456 
003464 
003472 
003476 
003502 
003510 
003516 
003522 
003526 
003530 
003532 
003536 
003540 
003542 


003544 
003552 
003560 


003564 
003572 
003600 
003604 


003610 
003614 
003616 
003620 
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000004 


052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000400 
000000 
000400 


064001 


000000 
000020 


020000 
020000 


020000 
02C000 
176220 
000037 
000007 
000176 
013300 
176164 


176160 


900007 
000176 
013236 


000007 
000176 
013216 
140037 


176102 


176322 
176310 
176306 


176300 
176266 


176250 


176256 
176250 


176242 
176234 


175412 
175762 


175350 
175720 


175330 
175700 
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INITIALIZE THE COMMON TAGS 


+; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
++RECEIVER SECTION, IT USES THE ERROR FLAGS 
++TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
++ COVRRUN, RXERR) 

++ MODE: ISYMOD 


ee a 
a 


++ CHAR 


TST1 


\VE 


;: SEUURAESOXYRSSURNSESUNES SNES SOAAES SALSA TEAL EDA T ESAT 
SCOPE 


+SET MAINT DATA, 
MOV 


>SET MODE .# OF 
MOV 
BIS 


#MRESET, dTXCSR ;MASTER RESET 
#ISYMOD. APARCSR ;SET THE MODE 
#MRESET,@TXCSR ; MASTER RESET 


CLK, BREAK, BMAINTENANCE MODE 
#MTDATA!CLK! MINT! BREAK, aTXCSR 


BITS. PARITY SENSE. &LOAD SYNC REG 
# ISYMOD!F IVE !NOPAR!0, dPARCSR 
#SYNSCH, ARXCSR ;SET SYNC SEARCH 


>POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 


BIC 


#CLK, ATXCSR +>POKE CLK DOWN 
#CLK. @TXCSR +POKE CLK UP 


BIS 
> POKE a? 7 GET LOGIC INTO SYNCRONIZATION 


BIS 
MoV 


#CLK, aTXCSR ;POKE CLK DOWN 
#CLK. ATXCSR ;POKE CLK UP 
RXDBUF, R3 ;SET UP FOR ERROR MESSAGE 
#37,RO ; EXPECTED 
#7, SHIFT ;# OF SHIFTS 
#176, STMP1 ; DATA CHAR 
PC, RPOKE ;SHIFT IN THIS CHAR 
DRXCSR ;RXDONE 7? 
+4 


4 ;RXDONE SHOULD BE SET 

ARXOBUF, R1 ; ACTUAL 

RO.R1 ; COMPARE EXPECTED VS. ACTUAL 
+4 


2 :RECEIVED DATA DID NOT MATCH 
;EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 


#7, SHIFT 7# OF SHIFTS 

#176, STMP1 DATA CHAR 

PC, RPOKE ;SHIFT IN THIS CHAR 

SECOND CHARACTER WITHOUT READING RXDBUF 
#7, SHIFT ;# OF SHIFTS 

#176, STMP1 DATA CHAR 

Pc, RPOKE i; SHIFT IN THIS CHAR 


#140000!37,RO0 ;EXPECTED DATA PLUS 
om & OVRRUN 


ORXOBUF.R1 ACTU 

RO. R1 ; COMPARE EXP uE. ACT 

+4 

2 SPECIFICALLY LOOK AT RXERR & 


> OVRRUN BITS... THEY BOTH SHOULD BE SET 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 


SEQ 0030 
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1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
140? 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 


003622 
003624 
003632 
003640 


003646 


003654 
003662 


003670 
003676 


003704 
003712 
003720 
003724 
003730 
003736 
003744 
003750 
003754 
003756 
003760 
003764 
003766 
003770 


003772 
004000 
004006 


004012 
004020 
004026 
004032 


004036 
004042 
004044 
004046 
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000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 
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000409 
o0cc00 
000400 


064001 


000000 
000020 


020000 
020000 


020000 
020000 
17£772 
000u00 
000007 
000100 
013052 
175736 


i 75732 


000007 
000100 
013010 


000007 
000100 
012770 
140000 


175654 


176074 
176062 
176060 


176052 
176040 


176022 


176030 
176022 


176014 
176006 


175164 
175534 


175122 
175472 


175102 
175452 


21- + i -77 09:08 PAGE 


r 3g 


33 
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+, RECEIVER SECTION, IT USES THE ERROR FLAGS 

++ TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
++ COVRRUN, RXERR) 

++ MODE: ISYMOD 

++ LENGTH: FIVE 


>; CHAR: O 


;; SESUANEESUSUESSUAESESAESSSAASSSNSEESOAAESONALESINAESSNAES SONS 


TST2: 
BIS 
MOV 
BIS 


+ SET MAINT DATA, 
MOV 
;SET MODE .& OF 


Mov 
Bis 


RMRESET,@TXCSR ; MASTER RESET 
#ISYMOD, @PARCSR ;SET THE MODE 
MMRESET,@TXCSR ; MASTER RESET 


CLK, BREAK, &MAINTENANCE MODE 
#MTDATAICLK! MINT! BREAK, aTXCSR 


BITS, PARITY SENSE, &LOAD SYNC REG 
# ISYMOD!F IVE !NOPAR !0, APARCSR 
#SYNSCH, ARXCSR ;SET SYNC SEARCH 


;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 


Bic 


BIS 
MoV 


#CLK, ATXCSR >POKE CLK DOWN 


BIS #CLK, ATXCSR ;POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR +POKE CLK - ye 
#CLK, ATXCSR *>POKE CLK U 
RXOBUF,R3 + SET UP FOR ERROR MESSAGE 
#0,RO -;EXPECTED 
#7, SHIFT ;# OF SHIFTS 
#100, STMP1 DATA CHAR 
PC, RPOKE >SHIFT IN THIS CHAR 
O@RXCSR ;RXDONE ? 
. +4 
4 ; RXDONE ng A BE SET 
ORXOBUF. R1 
RO.R1 ; COMPARE. EXPECTED VS. ACTUAL 
+4 
2 RECEIVED DATA DID NOT MATCH 


JSR 
;NOW SHIFT IN A 

MoV 

MOV 

JSR 

MoV 


Mov 
icMP 

BEQ 

ERROR 


EXPECTED DATA - CHECK MAINT DATA 
OR RECEIVER LOGIC 


#7, SHIFT 7# OF SHIFTS 

#100, STMP1 DATA CHAR 

PC, RPOKE ;SHIFT IN THIS CHAR 

SECOND CHARACTER WITHOUT READING RXDBUF 
#7, SHIFT +# OF SHIFTS 

#100, STMP1 DATA CHAR 

PC, RPOKE >SHIFT IN THIS CHAR 


#140000'0.R0 EXPECTED DATA PLUS 
7RXERR & OVRRUN 


OR XOBUF, R1 7 ACTUAL 

RO.R1 ;COMPARE EXP VS. ACT 

+4 

2 SPECIFICALLY LOOK AT RXERR & 


/OVRRUN BITS... THEY BOTH SHOULC BE SET 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
; RECEIVER SECTION, IT USES THE ERROR FLAGS 


SEQ 0031 


i 


S 3 
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DZDURB. M11 31-MAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0032 
1455 7+ 70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
1456 ++ COVRRUN, RXERR) 

1457 +; MODE: ISYMOD 

1458 +> LENGTH: SIX 

1459 ++ CHAR: 25 

1460 3% | 
1461 Fe 02990 00000005000000000006000500050005005000089999592599999 9993: 
1462 004050 Od00004 TST3: SCOPE 

1463 004052 052777 OOO400 175646 BIS #MRESET,@TXCSR ;MASTER RESET 

1464 004060 012777 O0000D 175634 MOV #ISYMOD, APARCSR ; SET THE MODE 

nan 004066 052777 OOO4O0 175632 BIS #MRESET, @TXCSR ;MASTER RESET 

1 

1467 ;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 

tor 004074 012777 O684001 175624 MOV #MTOATA!CLK'!MINT! BREAK. dTXCSR 

1 

1470 ;SET MODE .# OF BITS.PARITY SENSE, &LOAD SYNC REG 

1471 004102 012777 O02000 175612 MOV #|SYMOD!S1X!NOPAR!0, dPARCSR 

1472 004110 052777 000020 175574 BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 

1473 ;POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
1474 004116 042777 O20000 175602 BIC #CLK, ATXCSR ;POKE CLK DOWN 

1475 004124 ©82777 O20000 175574 Bis #CLK, dTXCSR ;POKE CLK UP 

1476 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

1477 004132 042777 O20000 175566 BIC #CLK, JTXCSR ;POKE CLK DOWN 

1478 004140 052777 020000 175560 BIS #CLK. dTXCSR ;POKE CLK UP 

1479 004146 016703 175544 MOV RXDBUF.R3 > SET UP FOR ERROR MESSAGE 
1480 004152 012700 o00C025 MOV #25.ROQ ;EXPECTED 

1481 004156 012767 OOOV1IO 174736 MOV #8. .SHIFT ;# OF SHIFTS 

1482 004164 012767 000252 175306 MoV #252, STMP1 ;DATA CHAR 

1483 004172 004767 012624 JSR PC, RPOKE >SHIFT IN THIS CHAR 

1484 004176 105777 175510 TSTB ORXCSR ;RXDONE ? 

1485 004202 10u401 BMI +4 

1486 004204 104004 ERROR 4 ; RXDONE os BE SET 

1487 004206 017701 175504 MoV ORXOBUF, R1 ACTUAL 

1488 004212 020001 CMP RO.R1 > COMPARE. EXPECTED WS. ACTUAL 

1489 004214 001401 BEQ . +4 <3 
1490 004216 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 

1491 ; EXPECTED DATA - CHECK MAINT DATA 
1492 >OR RECEIVER LOGIC 

1493 004220 012767 OO0010 174674 MOV #8. ,SHIFT ;# OF SHIFTS 

1494 004226 012767 000252 175244 MOV #252, STMP1 ;DATA CHAR 

1495 004234 004767 012562 JSR PC, RPOKE ;SHIFT IN THIS CHAR 

1496 ;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
1497 004240 012767 O00010 174654 MoV #8., SHIFT 7# OF SHIFTS 

1498 004246 012767 000252 175224 MOV #252, STMP1 ;DATA CHAR 

1499 004254 004767 012542 JSR PC, RPOKE ;SHIFT 'N THIS CHAR 

1500 004260 012700 140025 MOV #140000!25.RO ;EXPECTED DATA PLUS 

1501 a & OVRRUN 

1502 004264 017701 175426 MoV ORXDOBUF,R1 ; ACTUAL 

1503 004270 020001 CMP RO.R1 ; COMPARE EXP VS. ACT 

1504 004272 001401 BEQ +4 

1505 004274 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
1506 ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
1507 

1508 >; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
1509 >; RECEIVER SECTION. IT USES THE ERROR FLAGS 


1510 2;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 





DZDUR-B MACY11 30(104%6) 


DZDURB. M11 


004276 
004 300 
004306 
004314 


004322 


004 330 
004336 


004 344 
004352 


004 360 
004 366 
004374 
004400 
004404 
004412 
004420 
004424 
004430 
004432 
0044 34 
004440 
004442 
004444 


004446 
004454 
004462 


704466 
004474 
004502 
004506 


004512 
004516 
004520 
004522 


31-MAY-77 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


09: 


000400 
000000 
000409 


064001 


002000 
000020 


020000 
020000 


020000 
020000 
175316 
000052 
000010 
000524 
012376 
175262 


175256 


000010 
000324 
012334 


000010 
000324 
012314 
140052 


175200 


175420 
175406 
175404 


175376 
175364 


175346 


175354 
175346 


176340 
176332 


174510 
176060 


174446 
175016 


174426 
174776 


HS 


21-SEP-77 09:08 PAGE 35 
48 INITIALIZE THE COMMON TAGS 


;+ COVRRUN, RXERR) 
+; MODE: ISYMOD 

++ LENGTH: SIX 

7; CHAR: 52 


MEttiititttttittttttttttttitttttttttttttttttttttttt stat te ttt ts is! 


SCOPE 

BIS #MRESET, dTXCSR ; MASTER RESET 
MOV #ISYMOD, APARCSR ;SeT THE MODE 
BIS @MRESET.@TXCSR ;MASTER RESET 


>SET MAINT DATA. CLK. BREAK, &MAINTENANCE MODE 


MOV #MTDATAICLK! MINT! BREAK, dTXCSR 


SET MODE .# OF BITS,PARITY SENSE. &LOAD SYNC REG 
MOV 


# ISYMOD!S1X!NOPAR!0, APARCSR 
BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 


;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 


BIC #CLK, ATXCSR +>POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 


>POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC 


#CLK, dTXCSR >POKE CLK * 
BIS #CLK, JTXCSR ;POKE CLK 
MOV RXDBUF,R3 >SET UP FoR, ERROR MESSAGE 
MOV #52,R0 ;EXPECTED 
MOV #8. ,SHIFT ;# OF SHIFTS 
MOV #324, STMP1 ;DATA CHAR 
JSR PC, RPOKE > SHIFT IN THIS CHAR 
TSTB @RXCSR ;RXDONE ? 
BMI +4 
ERROR 4u ;RXDONE SHOULD BE SET 
MOV ORXOBUF, R1 > ACTUAL 
CMP RO.R1 ; COMPARE EXPECTED VS. ACTUAL 
BEQ +4 
ERROR 2 ;RECE'IVED DATA DID NOT MATCH 


EXPECTED DATA - CHECK MAINT DATA 


7OR RECEIVER LOGIC 


MOV #8. , SHIFT ;# OF SHIFTS 

MoV #324, STMPI1 >DATA CHAR 
PC, RPOKE ;SHIFT IN THIS CHAR 
SECOND CHARACTER WITHOUT READING RXDBUF 
#8... SHIFT +# OF SHIFTS 

MoV #324, STMP1 DATA CHAR 


E + SHIFT IN THIS CHAR 
MOV #140000!52, RO -;EXPECTED DATA PLUS 
ie & OVRRUN 


MOV dr XOBUF, R1 

CMP RO. R1 COMPARE “oh _ ACT 

BEQ _ +4 

ERROR 2 >; SPECIFICALLY LOCK AT RXERR & 


;OVRRUN BITS... THEY BOTH SHOULD BE SET 


>; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
>; RECEIVER SECTION, |1T USES THE ERROR FLAGS 

>; TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
7+ COVRRUN, RXERR ) 


Wa a $F 


SEQ 0033 | 


DZDUR-B MACY11 301046) 


DZDURB. M11 


1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 


004524 
004526 
004534 
004542 


004550 


004556 
004564 


004572 
004600 


004606 
004614 
004622 
004626 
004632 
004640 
004646 
004652 
004656 
004660 
004662 
004666 
004670 
004672 


004674 
004702 
004710 


004714 
004722 
004730 
004734 


004740 
004744 
004746 
004750 


31-MAY-7 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


7 09:4 


000400 
000000 
000400 


064001 


002000 
000020 


020000 
020000 


020000 
020000 
175070 
000077 
000010 
000376 
012150 
175034 


175030 
e 


0010 
000376 
012106 


000010 
000376 
012066 
140077 


174752 


175172 
175160 
175156 


175150 
175136 


175120 


175126 
175120 


175112 
176104 


174262 
174632 


174220 
174570 


174200 
174550 


21- = apts -77 09:08 PAGE 


-- 


36 
INITIALIZE THE COMMON TAGS 
>;MODE: ISYMOD 
+; LENGTH: SIX 
++ CHAR: 77 


PETtttitititittttttttttttttt itt ttttttttttt ttt ttittttt titi tt tts: 
SCOPE 


TSTS: 
BIS 
MOV 
BIS 


SET MAINT DATA, 


MOV 
> SET paar * *. OF 
B15 


@MRESET. @TXCSR -;MASTER RESET 
#ISYMOD, APARCSR ;SET THE MODE 
#MRESET.QTXCSR ;MASTER RESET 


CLK, BREAK, &MAINTENANCE MODE 
RMTDATA!CLK'MINT! BREAK, dTXCSR 


BITS, PARITY SENSE, &LOAD SYNC REG 
#1 SYMOD!S1X!NOPAR!O, APARCSR 
®SYNSCH, ARXCSR ; SET SYNC SEARCH 


>POKE CLK TO GET RECEIVER INTO SYNCROIZATION. ... 


BIC 


#CLK, ATXCSR +POKE CLK DOWN 
CLK, ATXCSR ;POKE CLK UP 


BIS 
*POKE CLK TO GET LOGIC INTO SYNCRONIZATION 


BEQ 
ERROR 


#CLK, dTXCSR ;POKE CLK DOWN 

#CLK, ATXCSR +POKE CLK UP 

RXOBUF,. R3 SET UP FOR ERROR MESSAGE 
#77,RO ;EXPECTED 

#8. , SHIFT ># OF SHIFTS 

#376, STMP1 *DATA CHAR _ 

PC, RPOKE ; SHIFT IN THIS CHAR 
O@RXCSR ;RXDONE ? 

. +4 

4 + RXDONE arta BE SET 
ORXDBUF.R1 TUAL 

RO.R1 ; COMPARE. EXPECTED VS ACTUAL 
_ +4 

2 RECEIVED DATA DID NOT MATCH 


EXPECTED DATA - CHECK MAINT DATA 
;OR RECEIVER LOGIC 


#8... SHIFT ;# OF SHIFTS 

sgh Ag, DATA CHAR 

PC, RPOKE ; SHIFT IN THIS CHAR 
SECOND CHARACTER WITHOUT READING RXDBUF 
#8... SHIFT :# OF SHIFTS 

#376, STMPI DATA CHAR 

PC, RPOKE +SHIFT IN THIS CHAR 


#140000!77,R0 ;EXPECTED DATA PLUS 
;RXERR & OVRRUN 


ORXOBUF,.R1 ; ACTUAL 

RO. R1 ; COMPARE EXP VS. ACT 

+4 

2 > SPECIFICALLY LOOK AT RXERR & 


;OVRRUN BITS... TmEY BOTH SHOULD BE SET 


>, THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;; RECEIVER SECTION. IT USES THE ERROR FLAGS 
;,70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
>; COVRRUN, RXERR) 

;;MODE: 1SYMOD 


SEQ 0034 | 


J 3 
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DZDURB. M11 31-MAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0035 
1623 +; LENGTH: SIX 
1624 ++ CHAR: 0 
1625 
1626 PPBTTTTTTTTTTT TTT TTT TTT TTT TT TET TTT TTT TTT TTT TT TTT e Te ttt tt tT 
1627 004752 O00004 TST6: SCOPE 
1628 004754 052777 OO0400 174744 BIS #MRESET, @TXCSR ;MASTER RESET 
1629 004762 012777 OOO000 174732 MOV #ISYMOD, APARCSR ; SET THE MODE 
er 004770 052777 OOO4OO 174730 BIS @MRESET, @TXCSR ;MASTER RESET 
1632 ;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
744 004776 012777 O684001 174722 MOV #MTOATAICLK'!MINT! BREAK, dTXCSR 
1635 ;SET MODE .# OF BITS, PARITY SENSE. &LOAD SYNC REG 
1636 005004 012777 002000 174710 Mov #1 SYMOD!S|1X!NOPAR!O, dPARCSR 
1637 005012 052777 000020 174672 BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
1638 ;POKE CLK TO GET RECEIVER INTO SYNCROIZATION .. 
1639 005020 042777 O20000 174700 BIC #CLK, ATXCSR ;POKE CLK DOWN 
1640 005026 052777 020000 174672 BIS #CLK, ATXCSR ;POKE CLK UP 
1641 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
1642 005034 042777 O20000 174664 BIC #CLK, ATXCSR ;POKE CLK DOWN 
1643 005042 052777 O20000 174656 Bis #CLK, ATXCSR ;POKE CLK UP 
1644 005050 016703 174642 MOV RXDBUF,R3 ;SET UP FOR ERROR MESSAGE 
1645 005054 012700 000000 MOV #0.RO ;EXPECTED 
1646 005060 012767 O00010 174034 MoV #8... SHIFT ;# OF SHIFTS 
1647 005066 012767 O00200 174404 MOV #200, STMP1 ;DATA CHAR 
1648 005074 004767 011722 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
1649 005100 105777 174»06 TSTB ORXCSR ;RXDONE 7? 
1650 005104 100401 BMI +4 
1651 005106 104004 ERROR 4 ; RXDONE wean A BE SET 
1652 005110 017701 174602 MoV ORXDBUF,R1 , ACTUA 
1653 005114 020001 CMP RO.R1 ; COMPARE EXPECTED VS. ACTUAL 
1654 005116 001401 BEQ _ +4 
1655 005120 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
1656 ; EXPECTED DATA - CHECK MAINT DATA 
1657 ;OR RECEIVER LOGIC 
1658 005122 012767 000010 173772 MOV #8., SHIFT ;# OF SHIFTS 
1659 005130 012767 000200 174342 MOV #200, STMP1 ;DATA CHAR 
1660 005136 004767 011660 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
1661 ;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
1662 005142 012767 O00010 173752 MOV #8... SHIFT ;# OF SHIFTS 
1663 005150 012767 900200 174322 MoV #200, STMP1 ;DATA CHAR 
1664 005156 004767 011640 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
1665 005162 012790 140000 MOV #140000'0.R0 > EXPECTED DATA PLUS 
1666 —, & OVRRUN 
1667 005166 017701 174524 MOV OR XDBUF,R1 ;ACTUA 
1668 005172 020001 CMP RO. R1 ; COMPARE EXP US. ACT 
1669 005174 001401 BEQ +4 
1670 005176 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
1671 ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
1672 
1673 ;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
1674 ;; RECEIVER SECTION. 1T USES THE ERROR FLAGS 
1675 ;;7T0 DETERMINE THAT IT WAS SELECTED CORRECTLY 
1676 ;; COVRRUN, RXERR) 
1677 >; MODE: SYNOD 


1678 >; LENGTH: SEVEN 





K 3 
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DZDURKB. M11 31-NMAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0036 
eee ++ CHAR: 125 
1681 Pe 62000 0000000900000006000060000000000000000000000000000000000 99 9 | 
1682 005200 000004 TST?: SCOPE 
1683 005202 052777 OOO400 174516 BIS #MRESET,@TXCSR ;MASTER RESET 
1684 005210 012777 OOO0000 174504 MOV #ISYMOD, APARCSR ; SET THE MODE 
ean 005216 052777 OOO400 174502 BIS #MRESET. @TXCSR ;MASTER RESET 
1687 ;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
re 005224 012777 O688001 174474 MOV #MTDATAICLK'! MINT! BREAK, daTXCSR 
1690 ;SET MODE .# OF BITS, PARITY SENSE.&LOAD SYNC REG 
1691 005232 012777 OO¥O00 174462 nov # | SYMOD! SEVEN! NOPAR!0, dPARCSR 
1692 005240 052777 000020 174444 BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 
1693 ;POKE CLK TO GET RECEIVER INTO SYNCROI ZATION 
1694 005246 042777 O20000 174452 BIC #CLK, ATXCSR ;POKE CLK DOWN 
1695 005254 052777 O20000 174444 BIS #CLK, ATXCSR +POKE CLK UP 
1696 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
1697 005262 042777 O20000 174436 BIC #CLK, ATXCSR + POKE 2s i 
1698 005270 052777 O20000 174430 BIS #CLK, aTXCSR ;POKE CLK 
1699 005276 016703 174414 MOV RXDBUF,R3 ;SET UP ron, ERROR MESSAGE 
1700 005302 012700 000125 MOV #125,.R0 ; EXPECTED 
1701 005306 012767 O00011 172606 MOV #9., SHIFT ;# OF SHIFTS 
1702 005314 012767 000652 174156 MOV #652, STMP1 ; DATA CHAR 
1703 005322 004767 011474 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1704 005326 105777 174360 TSTB ORXCSR ;RXDONE ? 
1705 005332 100401 BMI +4 
1706 005334 104004 ERROR 4 ; RXDONE gr BE SET 
1707 005336 017701 174354 MOV ORXDBUF, R1 
1708 005342 026001 CMP RO. R1 ; COMPARE ENPECTED WS. ACTUAL 
1709 OO5344 001401 BEQ +4 
1710 005346 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
1711 ; EXPECTED DATA - CHECK MAINT DATA 
1712 ;OR RECEIVER LOGIC 
1713 005350 012767 O00011 73544 MOV #9. ,SHIFT ;# OF SHIFTS 
1714 005356 012767 O00652 174114 MOV #652, STMP1 ;DATA CHAR 
1715 G605364 004767 011432 JSR PC, RPOKE ‘ ; SHIFT IN THIS CHAR 
1716 ;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
1717 005370 012767 OO00011 173524 MoV #9. , SHIFT ;# OF SHIFTS 
1718 005376 012767 000652 174074 MOV #652, STMP1 ; DATA CHAR 
1719 005404 004767 011412 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1720 005410 012700 140125 MoV #140000'125,R0 ;EXPECTED DATA PLUS 
1721 ae & OVRRUN 
1722 005414 017701 174276 MOV ORXDBUF. R1 ACTUA 
1723 005420 020001 CMP RO,R1 ; COMPARE. EXP VS. ACT 
1724 005422 001401 BEQ . +4 
1725 005424 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
1726 ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
1727 
1728 >; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
1729 ;; RECEIVER SECTION. IT USES THE ERROR FLAGS 
1730 3270 DETERMINE THAT IT WAS SELECTED CORRECTLY 
1731 +3 COVRRUN, RXERR) 
1732 ;; MODE: ISYMOD 


1733 >; LENGTH: SEVEN 
1734 >; CHAR: 52 





Ld 
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DZDURB. M11 31-MAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0037 
1735 33 
1736 55 MAAKKAAAAAAAA AAA AA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
1737 005426 O00004 TST10: SCOPE 
1738 005430 052777 OO0400 174270 BIS #MRESET, @TXCSR ;MASTER RESET 
1739 005436 012777 OOO000 174256 MOV #ISYMOD, APARCSR ; SET THE MODE 
ane 005444 062777 OOO4OO 174254 BIS #MRESET, @TXCSR ;MASTER RESET 
1742 ;SET MAINT DATA, CLK, BREAK, SMAINTENANCE MODE 
Swe 005452 012777 O684001 174246 MOV #MTDATAICLK!MINT! BREAK, dTXCSR 
1745 ,SET MODE .# OF BITS, PARITY SENSE, &LOAD SYNC REG 
1746 005460 012777 OO¥O00 174234 Mov # ISYMOD! SEVEN! NOPAR!0, dPARCSR 
1747 OO0S466 052777 OO0020 174216 Bis #SYNSCH, ARXCSR ;SET SYNC SEARCH 
1748 ;POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
1749 005474 042777 O20000 174224 BIC #CLK, dTXCSR >;POKE CLK DOWN 
1750 005502 052777 020000 174216 BIS #CLK, ATXCSR >POKE CLK UP 
1751 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
1752 005510 042777 O20000 174210 BIC #CLK, ATXCSR +POKE CLK _ 
1753 005516 052777 020000 174202 Bis #CLK, ATXCSR >POKE CLK U 
1754 005524 016703 174166 MOV RXDBUF,R3 ;SET UP FOR * crnon MESSAGE 
1755 005530 012700 000052 MOV #52,RO0 ;EXPECTED 
1756 005534 012767 000011 1723360 MoV #9... SHIFT ;*# OF SHIFTS 
1757 005542 012767 000524 172730 MoV #524, STMP1 ;DATA CHAR 
1758 005550 004767 011246 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1759 005554 105777 174132 TSTB — ;RXDONE ? 
1760 005560 100401 BMI 
1761 005562 104004 ERROR _" ;RXDONE SHOULD BE SET 
1762 005564 017701 174126 MoV @RXOBUF, R1 ; ACTUAL 
1763 005570 020001 CMP RO. R1 ; COMPARE EXPECTED VS. ACTUAL 
1764 005572 001401 BEQ _ +4 
1765 005574 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
1766 ; EXPECTED DATA - CHECK MAINT DATA 
1767 ;OR RECEIVER LOGIC 
1768 005576 012767 O00011 173316 MOV #9., SHIFT +# OF SHIFTS 
1769 005604 012767 000524 i73666 MOV #524, STMP1 ;DATA CHAR 
1770 005612 004767 011204 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
1771 ;NOW SHIFT IN A SECOND CHARACTER poy + — RXDOBUF 
1772 005616 012767 O00011 173276 MOV #9., SHIFT # OF SHIF 
1773 005624 012767 000524 173646 MoV #524, STMP1 DATA Son. 
1774 005632 004767 011164 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
1775 005636 012700 140052 MoV #140000'S52.R0 <;EXPECTED DATA PLUS 
1776 aa & OVRRUN 
1777 005642 017701 174050 MoV AR XDBUF.R ACTUAL 
1778 005646 020001 CMP RO.R1 COMPARE’ EXP vS. ACT 
1°79 005650 001401 BEQ +4 
1780 005652 104002 ERROR 2 > SPECIFICALLY LOOK AT RXERR & 
1781 ; OVRRUN BITS... THEY BOTH SHOULD BE SET 
1782 
1783 3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
1784 , RECEIVER SECTION. IT USES THE ERROR FLAGS 
1785 3370 DETERMINE THAT IT WAS SELECTED CORRECTLY 
1786 > COVRRUN. RXERR) 
1787 ;; MODE: ISYMOD 
1788 ;; LENGTH: SEVEN 
1789 3; CHAR: 177 


1790 ie. 
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1791 
1792 
1793 
1794 
1795 
1796 
1797 


005654 
005656 
005664 
005672 


005700 
005706 


005714 


005722 
005730 


005736 
005744 
005752 


- 005756 


005762 
005770 
005776 
006002 
006006 
006010 
006012 
006016 
006020 
006022 


006024 
006032 
006040 


006044 
006052 
006060 
006064 


006070 
006074 
006076 
006100 


31-MAY-77 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020091 
001401 
104002 


nM 3 
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000400 
000000 
000400 


064001 


004000 
000020 


020900 
020000 


020000 
020000 
173740 
000177 
000011 
000776 
011020 
173704 


173/00 


000011 
000776 
010756 


000011 
000776 
010736 
140177 


173622 


174042 
174030 
174026 


174020 
174006 


173770 


173776 
173770 


173762 
173754 


173132 
1723502 


173070 
173440 


173050 
173420 


40 
INITIALIZE THE COMMON TAGS 


|S ngage 7°" Rapaencagae ss paarrmeacn egmcenae eee ua une me oem as ett: 
nea Ti #MRESET,@TXCSR {MASTER RESET 
MOV #ISYMOD, @PARCSR ; SET THE MODE 
BIS @MRESET.@TXCSR ;MASTER RESET 


;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV #MTOATA!CLK! MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS, PARITY SENSE. &LOAD SYNC REG 
MOV # |SYMOD! SEVEN! NOPAR !0, @PARCSR 
BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
;POKE CLK TO GET RECEIVER INTO Pig ghee: 
BIC #CLK, ATXCSR +POKE CLK DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR +POKE CLK DOWN 


BIS #CLK,. ATXCSR +POKE CLK UP 

MOV RXOBUF, R3 + SET UP FOR ERROR MESSAGE 
MoV #177,RO ; EXPECTED 

MOV #9..SH HIFT +*# OF SHIFTS 

MOV #776, STMP 1 DATA CHAR 


JSR PC, RPOKE + SHIFT IN THIS CHAR 
TSTB ORXCSR ;RXDONE ? 


BMI . +4 

ERROR 4 ; RXDONE ge 9 BE SET 

MoV OR XOBUF, R1 ;ACTU 

CMP RO. R1 ; COMPARE EXPECTED VS. ACTUAL 

BEQ +4 

ERROR 2 ;RECEIVED DATA DID NOT MATCH 
; EXPECTED DATR - CHECK MAINT DATA 
;OP RECEIVER LOGIC 

MoV #9. . SHIFT 7# OF SHIFTS 

MoV #776. STMP1 > DATA CHAR 

JSR PC, RPOKE ; SHIFT IN THIS CHAR 

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
MoV #9., SHIFT ;# OF SHIFTS 
MoV #776, STMP1 ;DATA CHAR 


JSR PC, RPOKE +SHIFT IN THIS CHAR 
MOV #140000!177,R0 -;EXPECTED DATA PLUS 
+RXERR & OVRRUN 


MOV OR XOBUF.R1 ACTUAL 
CMP RO. Ri COMPARE EXP VS. ACT 
BEQ 


. +4 
ERROR 2 SPECIFICALLY LOOK AT RXERR & 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
; RECEIVER SECTION. IT USES THE ERROR FLAGS 
;;7T0 DETERMINE THAT IT WAS SELECTED CORRECTLY 
33 COVRRUN, RXERR) 

;; MODE: ISYNOD 

;; LENGTH: SEVEN 

+; CHAR: 0 


MUTTTT TTT ttt ttttitti ttt ittitt titi ttiti titi ttt i ttt e ttt t ite 


SEQ 0038 


006102 
006104 
006112 
006120 


006126 


006134 
006142 


006150 
006156 


006164 
006172 
006200 
006204 
006210 
006216 
006224 
006230 
006234 
006236 
006240 
006244 
006246 
006250 


006252 
006260 
006266 


006272 


006300 
“006306 


006312 


006316 
006322 
006324 
006326 


006330 


oe B — 3011046) 
DZ2DURB. M11 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001491 
104002 


000004 


000400 
000000 
000400 


064001 


004009 
000020 


020000 
020000 


020000 
020000 
173512 
000000 
000011 
000400 
010572 
173456 


172452 


000011 
000400 
010530 


000011 
000400 
010510 
140000 


173374 


173614 
173602 
173600 


173572 
173560 


173542 


173550 
173542 


173534 
173526 


172704 
173254 


172642 
173212 


172622 
173172 
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N 3 


INITIALIZE THE COMMON TAGS 


TST12: tht 
MOV 
BIS 


MMRESET.QTXCSR ;MASTER RESET 
#ISYMOD. OPARCSR ;SET THE MODE 
WMRESET,@TXCSR {MASTER RESET 


+ SET san 8 DATA. CLK, BREAK, &MAINTENANCE MODE 


;SET MODE .# OF 
MoV 
BIS 


#MTOATA!CLK!MINT! BREAK, dTXCSR 


BITS. PARITY SENSE, &LOAD SYNC REG 
# | SYMOD! SEVEN! NOPAR !0, dPARCSR 
#SYNSCH. ARXCSR ;SET SYNC SEARCH 


+POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 


BIC 


#CLK, @TXCSR +POKE CLK DOWN 
#CLK, @TXCSR +POKE CLK UP 


BIS 
+ POKE “e z GET LOGIC INTO SYNCRONIZATION 


MoV 


B 
ERROR 


#CLK, ATXCSR + POKE ar DOWN 

#CLK, @TXCSR +POKE CLK UP 

RXDBUF,R3 +SET UP FOR ERROR MESSAGE 
#0,.RO ;EXPECTED 

#9., SHIFT :# OF SHIFTS 

#400, STMP1 DATA CHAR 

PC, RPOKE +SHIFT IN THIS CHAR 
— +RXDONE 7? 


. + RXDONE oar tae BE SET 

ORXDOBUF. R1 

—e ; COMPARE. EXPECTED VS. ACTUAL 
+ 


2 ;RECEIVED DATA DID NOT HATCH 
;EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 


#9., SHIFT i# OF SHIFTS 

#400. STMP1 +DATA CHAR 

PC, RPOKE +SHIFT IN THIS CHAR 
SECOND CHARACTER py 4 + Tiga RXDBUF 
#9. , SHIFT :*# OF SH 

#400, STMP1 + DATA CHAR. 

PC, RPOKE +SHIFT IN THIS CHAR 


#140000!0.R0 +EXPECTED DATA PLUS 
+RXERR & OVRRUN 


ORXDOBUF, R1 + ACTUAL 

RO.R1 > COMPARE EXP +4 ACT 

+4 

2 ; SPECIFICALLY LOOK AT RXERR & 


+ OVRRUN BITS... THEY BOTH SHOULD BE SET 


7+ THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
+ -RECEIVER SECTION, IT USES THE ERROR FLAGS 
++TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
»+ COVRRUN, RXERR) 


;; MODE: 


ISYMOD 


+; LENGTH: EIGHT 


>; CHAR 


: 125 


BETTI titititttttttttttttttitttttt ttt ttTT ttt TTT TTT TT ETT TT TT iT 


TST13: SCOPE 


SEQ 0039 


B 4 
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DZDURB. M11 31-MAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0040 
1903 006332 052777 O00400 173366 BIS #MRESET, @TXCSR ;MASTER RESET 
1904 006340 012777 OO0000 173354 MOV RISYMOD, APARCSR ; SET THE MODE 
tony 006346 052777 OOO400 173352 BIS #MRESET,@TXCSR ;MASTER RESET 
1907 ;SET MAINT _— CLK, BREAK, BMAINTENANCE MODE 
fee: 006354 012777 O684001 173344 Mov #MTOATAICLK'! MINT! BREAK, aTXCSR 
1910 ;SET MODE .® OF BITS. PARITY SENSE,.&LOAD SYNC REG 
1911 006362 012777 GO6000 173332 MOV # I SYMOD!E 1GHT!NOPAR '0, aPARCSR 
1912 006370 052777 000029 173314 BIS #SYNSCH, ARXCSR ;SET SYNC SEARCH 
1913 ;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
1914 006376 042777 O20000 173322 BIC #CLK, dTXCSR ;POKE CLK DOWN 
1915 006404 052777 O20000 173314 BIS #CLK. ATXCSR +POKE CLK UP 
1916 ;POKE CLK TO GET LOGIC !NTO SYNCRONIZATION 
1917 006412 042777 O20000 173306 BIC #CLK, ATXCSR ; POKE ae a 
1918 006420 052777 020000 173300 BIS #CLK, ATXCSR ;POKE CLK 
1919 006426 016703 173264 MOV RXOBUF, RZ ;SET UP FOR "ERROR MESSAGE 
1920 006432 012700 000125 MOV #125,.R0 ; EXPECTED 
1921 O06436 012767 000012 172456 MoV #10... SHIFT ;# OF SHIFTS 
1922 006444 012767 001252 173026 Noy #1252, STMP1 ;DATA CHAR 
1923 006452 004767 010344 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1924 006456 105777 173230 TSTB ORXCSR ;RXDONE 7? 
1925 006462 100401 BM! +4 
1926 006464 104004 ERROR 4 ;RXDONE SHOULD BE SET 
1927 006466 017701 173224 MOV - @RXDBUF,R1 ; ACTUAL 
1928 006472 020001 CMP RO. R1 ; COMPARE EXPECTED VS. ACTUAL 
1929 006474 001401 BEQ +4 
1930 006476 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
1931 ; EXPECTED DATA - CHECK MAINT DATA 
1932 * .;OR RECEIVER LOGIC 
1933 006500 012767 OO000i12 172414 MOV #10. SHIFT ;# OF SHIFTS 
1934 G006506 012767 001252 172764 MOV #1252. STMP1 ;DATA CHAR 
1935 006514 004767 010302 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1936 ;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
1937 006520 012767 000012 172374 MOV #10... SHIFT ;# OF SHIFTS 
1938 006526 012767 001252 172744 MOV #1252, STMP1 ;DATA CHAR 
1939 006534 004767 010262 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1940 006540 012700 140125 MOV #140000'!125.R0 ;EXPECTED DATA PLUS 
1941 >RXERR & OVRRUN 
1942 006544 017701 173146 MOV ARXOBUF, R1 ; ACTUAL 
1943 006550 020001 CMP RO. R1 ;COMPARE EXP vS. ACT 
1944 006552 001401 BEQ . +4 
1945 006554 104002 ERR 2 ; SPECIFICALLY LOOK AT RXERR & 
1946 ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
1947 
1948 >; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
1949 ;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
1950 3:TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
1951 3; COVRRUN., RXERR) 
1952 >; MODE: ISYMOD 
1953 7; LENGTH: EIGHT 
1954 >; CHAR: 252 
1955 33 
1956 5 OOOO EERE REAR EE 
1957 006556 000004 TST14: 


1958 006560 052777 OO00400 173140 BIS RMRESET, dTXCSR ;MASTER RESET 





C4 i ame feed 
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DZDURB. M11 31-MAY-77 09: 48 INITIALIZE THE COMMON TAGS SEQ 0041 
1959 006566 012777 OOOO00 173126 Mov RISYMOD, APARCSR ; SET THE MODE 
Bory 006574 052777 OOO4OO 173124 BIS #MRESET, @TXCSR ;MASTER RESET 
1962 ;SET MAINT DATA, CLK, BREAK, &MAINTENANCE MODE 
aan 006602 612777 O684001 173116 MOV #NTDATAICLK' MINT! BREAK, aTXCSR 
1965 ;SET MODE .# OF BITS. PARITY SENSE.&LOAD SYNC REG 
1966 006610 012777 O06000 173104 Mov #1SYMOO!'E 1GHT!NOPAR 'O, dPARCSR 
1967 006616 052777 000020 173066 BIS @SYNSCH, ARXCSR ;SET SYNC SEARCH 
1968 ;POKE CLK TO GET RECEIVER INTO SYNCROIZATION... 
1969 006624 042777 O20000 173074 BIC #CLK. @TXCSR © >;POKE CLK DOWN 
1970 006632 052777 020000 173066 BIS #CLK, ATXCSR ;POKE CLK UP 
1971 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
1972 006640 042777 O20600 173060 BIC #CLK, ATXCSR ;POKE CLK DOWN 
1973 006646 052777 020000 173052 BIS #CLK, ATXCSR ;POKE CLK UP 
1974 006654 016703 173036 MOV RXOBUF,R3 ;SET UP FOR ERROR MESSAGE | 
1975 006660 012700 000252 MOV #252,RO >; EXPECTED 
1976 006664 012767 000012 172230 nov #10. , SHIFT ;# OF SHIFTS 
1977 006672 012767 001524 172600 MoV #1524, STMP1 ;DATA CHAR 
1978 006700 004767 010116 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1979 006704 105777 173002 TSTB @RXCSR ;RXDONE ? 
1980 006710 100401 BMI +4 
1981 006712 104004 ERROR y ; RXDONE ir BE SET 
1982 006714 017701 172776 MOV ARXOBUF, R1 ;ACTUA 
1983 006720 020001 CMP RO, R1 ; COMPARE EXPECTED VS. ACTUAL 
1984 006722 001401 BEQ . +4 
1985 006724 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
1986 ; EXPECTED DATA - CHECK MAINT DATA 
1987 ;OR RECEIVER LOGIC 
1988 006726 012767 ‘000012 172166 MOV #10. , SHIFT 7” OF SHIFTS 
1989 006734 012767 001524 172536 Mov #1524, STMP1 ;DATA CHAR 
1990 006742 004767 010054 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1991 >;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
1992 006746 012767 OO0012 172146 MOV #10.,SHIFT ;# OF SHIFTS 
1993 006754 012767 001524 i172516 Nov #1524, STMP1 ;DATA CHAR 
1994 006762 004767 010034 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
1995 006766 012700 140252 MOV #140000!252,.R0 ;EXPECTED DATA PLUS 
1996 ce 3 OVRRUN 
1997 006772 017701 172720 MoV ORXOBUF.R1 SACTUA 
1998 006776 020001 CMP RO. R1 ; COMPARE EXP a ACT 
1999 007000 001401 BEQ +4 
2000 007002 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
2001 ; OVRRUN BITS... THEY BOTH SHOULD BE SET 
2002 
2003 :; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
2004 >; RECEIVER SECTION. IT USES THE ERROR FLAGS 
2005 3:70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
2006 7; COVRRUN, RXERR) 
2007 >; MODE: ISYMOD 
2008 ;; LENGTH: E |1GHT 
2009 7; CHAR: 377 
2010 23 
2011 Pe OO 5955555550000 00 000000000 000000000000000000008000295000008 98 8 | 
2012 007004 000004 TST15 SCOPE 
2013 007006 052777 OOO400 172712 BIS RMRESET, @TXCSR ;MASTER RESET 


2014 007014 012777 O00000 172700 MOV #ISYMOD, APARCSR ; SET THE MODE 
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007022 


007030 


007036 
097044 


007052 
007060 


007066 
007074 
007102 
007106 
007112 
007120 
007126 
007132 
007136 
007140 
007142 
007146 
007150 
007152 


007154 
007162 
007170 


007174 
007202 
007210 
007214 


007220 
007224 
007226 
007230 


007232 
007234 
007242 
007250 


052777 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


09: 
000400 


064001 


006000 
000020 


020009 
020000 


020900 
020000 
172610 
000377 
000012 
001776 
007670 
172554 


172550 


000012 
001776 
007626 


000012 
001776 
007606 
140377 


172472 


000400 
000000 
000400 


172676 
172670 
172656 


172640 


172646 
172640 


172632 
172624 


172002 
172352 


171740 
172310 


171720 
172270 


172464 
172452 
172450 
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DY 


INITIALIZE THE COMMON TAGS 


BIS WMRESET, @TXCSR ;MASTER RESET 


+ SET oer * DATA, CLK, BREAK, BMAINTENANCE MODE 


#MTDATA!CLK! MINT! BREAK. aTXCSR 


+ SET tang # OF BITS, PARITY SENSE, &LOAD SYNC REG 


#ISYMOD!E IGHT'!NOPAR !0, @PARCSR 
BIS #SYNSCH, ARXCSR ; SET SYNC SEARCH 


;POKE CLK TO GET RECEIVER INTO SYNCROIZATION. .. 


BIC #CLK, dTXCSR +POKE CLK DOWN 
#CLK, ATXCSR +POKE CLK UP 


BIS 
> POKE ~~ 7 GET LOGIC INTO SYNCRONIZATION 


MOV #10.,.SHIFT ;# OF SHIFTS 
MoV #1776, STMP1 ;DATA CHAR 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
TSTB @RXCSR ;RXDONE ? 
BNI +4 
ERROR 4y ; RXDONE tg BE SET 
MOV @RXDBUF,R1 ACTUAL 
as RO,R1 ; COMPARE EXPECTED VS. ACTUAL 
. +4 
ERROR 2 ;RECEIVED DATA DID NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
“OR RECEIVER LOGIC 
Mov #10. ,SHIFT ;# OF SHIFTS 
MoV #1776, STMP1 ;DATA CHAR 
PC, RPOKE > SHIFT IN THIS CHAR 
NOW SHIFT IN A SECOND CHAPACTER Wi THOUT READING RXDBUF 
#10.,SHIFT ;# OF SHIFTS 
MOV #1776, STMP1 ;DATA CHAR 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
MOV #140000!377.RO ;EXPECTED DATA PLUS 
ot sal & OVRRUN 
MOV ORXDBUF, R1 ;ACTUA 
CMP RO. R1 ; COMPARE EXP +4 ACT 
BEQ +4 
ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 
3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
:;RECEIVER SECTION. 1T USES THE ERROR FLAGS 
;;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
>; COVRRUN, RXERR) 
;; MODE: ISYNOD 
>; LENGTH: E1GHT 
++ CHAR: 0 
MUTTTTTTTTTTTTE TTT TTT TT TTT TTT TTT TTT TTT Tet ETT tet ttt ttt ate 
TST 16: SCOP 
BIS @MRESET.@TXCSR -;MASTER RESET 
MoV #ISYMOD, @PARCSR >; SET THE MODE 
BIS #MRESET. @TXCSR -;MASTER RESET 


#CLK, ATXCSR + POKE ee a 
BIS #CLK, ATXCSR ;POKE CLK 
MoV RXDBUF,.R3 
MOV #377,RO ; EXPECTED 


; SET UP FOR ERROR MESSAGE 


| 


——————_—— 


SEQ 0042 
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607256 


007264 
007272 


007300 
007306 


007314 
007322 
007330 
007334 
007340 
007346 
007354 
007360 
007364 
007366 
007370 
007374 
007376 
007400 


007402 
007410 
007416 


007422 
007430 
007436 
007442 


007446 
007452 
007454 
007456 


007460 
007462 
007470 
007476 


31-MAY-77 09:4 


012777 


012777 
052777 


042777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


064001 


006000 
000020 


020000 
020009 


020000 
020000 
172362 
000000 
000012 
001000 
007442 
172326 


172322 


000012 
001000 
007400 


000012 
001000 
607360 
140000 


172244 


000400 
020000 
000400 


172442 


172430 
172412 


172420 
172412 


172404 
172376 


171554 
172124 


171512 
172062 


171472 
172042 


172236 
172224 
17222 


oy gibi 09:08 PAGE 45 


— 4 


INITIALIZE THE COMMON TAGS 


+ SET con * DATA. 


SET MODE .# OF 
MOV 
BIS 


CLK, BREAK, BMAINTENANCE MODE 
#MTOATAICLK! MINT! BREAK, aTXCSR 


BITS, PARITY SENSE,&LOAD SYNC REG 
#1SYMOD'E IGHT!NOPAR!0. @PARCSR 
#SYNSCH, ARXCSR ;SET SYNC SEARCH 


;POKE CLK TO GET RECEIVER INTO ya 


BIC 


#CLK, aTXCSR +POKE CLK DOWN 
#CLK, @TXCSR ;POKE CLK UP 


BIS 
» POKE a? GET LOGIC INTO SYNCRONIZATION 


MoV 


#CLK, dTXCSR > POKE fa -* 
#CLK. dTXCSR ;POKE CLK 
RXOBUF,R3 ;SET UP FoR ERROR MESSAGE 
#0,R0 » EXPECTED 
#10. . SHIFT ;# OF SHIFTS 
#1000, STMP1 > DATA CHAR 
PC, RPOKE ;SHIFT IN THIS CHAR 
ORXCSR ;RXDONE ? 
+4 
4 > RXDONE gr 4 BE SET 
OP XOBUF.R1 ACTU 
RO. R1 : COMPARE. EXPECTED VS. ACTUAL 
+4 
2 ;RECEIVEDO DATA DID NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
>OR RECEIVER LOGIC 


#10.,SHIFT ;# OF SHIFTS 

#1000, $TMP1 DATA CHAR 

PC. RPOKE + SHIFT IN THIS CHAR 

SECOND CHARACTER WITHOUT READING RXOBUF 
#10. . SHIFT :# OF SHIFTS 

#1000, STHP1 DATA CHAR 

PC. RPOKE + SHIFT IN THIS CHAR 


#140000'0.R0 EXPECTED DATA PLUS 
>RXERR & OVRRUN 


OR XDBUF.R1 > ACTUAL 
RO. R1 >COMPARE EXP VS. ACT 
+ 
2 > SPECIFICALLY LOOK AT RXERR & 


>OVRRUN BITS... THEY BOTH SHOULD BE SET 


;, THIS TEST VORIFYS WORD LENGTH SELECT OF THE 
; RECEIVER SECTION. IT USES THE ERROR FLAGS 

/ TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
-+ COVRRUN, RXERR >) 

seh 7: SYNEXT 

> Le »waTH: FIVE 

». CHAR 25 


METTTITiTTit titi ttitit tit ititittitittitiitititiittstst ttt itsits 


TST17. SCOPE 
B'S 
mov 
BIS 


@MRESET.@TXCSR -MASTER RESET 
SSYNEXT, @PARCSR -SET THE MODE 
SMRESET.@TXCSR -MASTER RESET 


DZDUR-B MACY11 3011046) 


DZDURB. M11 


007504 


007512 
007520 


007526 
007534 
007542 
007546 
007552 
007560 
007566 
007572 
007576 
007600 
007602 
007606 
007610 
007612 


007614 
007622 
007630 


007634 
007642 
007650 
007654 


007660 
007664 
007666 
007670 


007672 
007674 
007702 
007710 


007716 


31-MAY-7 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
620001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


06001 


020000 
000020 


020000 
020000 
172159 
000025 
000005 
000025 
007230 
172114 


172116 


000005 
000025 
007166 


000005 
000025 
007146 
140025 


172032 


000400 
020000 
000400 


064001 


172214 


172202 
172164 


171300 
171650 


171260 
171630 


172024 
172012 
172010 


172002 


, 5 
46 
INITIALIZE THE COMMON TAGS 


;SET MAINT DATA, CLK, BREAK, MAINTENANCE MODE 
MOV #MTDATA!CLK! MINT! BREAK, dTXCSR 


SET MODE .# OF BITS, PARITY SENSE. &LOAD SYNC REG 
MOV WSYNEXT!F IVE !NOPAR!G, PARCSR 
BIS ®SYNSCH, ORXCSR ; SET SEARCH SYNC 
>POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, aTXCSR + POKE ne DOWN 
BIS #CLK, ATXCSR +POKE CLK UP 
MOV RXDBUF,.R3 — UP FOR ERROR MESSAGE 


21-SEP-77 09:08 PAGE 
7 09: 48 


MOV #25,RO0 ; EXPECTED 

MOV #5, SHIFT +# OF SHIFTS 

MOV #25, STMP1 DATA CHAR 

JSR PC, RPOKE ZSHIFT IN THIS CHAR 

TSTB ORXCSR ;RXDONE ? 

BNI . +4 

ERROR 4 ; RXDONE sr A BE SET 

MOV ORXOBUF, R1 ; ACTUA 

ied RO.R1 +; COMPARE EXPECTED VS. ACTUAL 

+4 

ERROR 2 RECEIVED DATA DID NOT MATCH 
;EXPECTED DATA - CHECK MAINT DATA 
,OR RECEIVER LOGIC 

MOV #5, SHIFT +# OF SHIFTS 

MOV #25, STMP1 DATA CHAR 

JSR PC, RPOKE + SHIFT IN THIS CHAR 

;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
MoV #5, SHIFT ;# OF SHIFTS 
MoV #25, STMP1 DATA CHAR 


JSR PC, RPOKE + SHIFT IN THIS CHAR 
MOV #140000!25,RO0 ;EXPECTED DATA PLUS 
*RXERR & OVRRUN 


MOV ORXOBUF. R1 ; ACTUAL 

CMP RO.R1 ;COMPARE EXP VS. ACT 

BEQ _ +4 

ERROR 2 SPECIFICALLY LOOK AT RXERR & 


;OVRRUN BITS... THEY BOTH SHOULD BE SET 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
3370 DETERMINE THAT IT WAS SELECTED CORRECTLY 
>; COVRRUN, RXERR) 

>; MODE: SYNEXT 

>; LENGTH: FIVE 

:; CHAR: 12 


pe $09 5600000000000600096000050505039229% 0929032990579 03 990002588) 
TST20: SCOPE 

BIS #MRESET. @TXCSR ;MASTER RESET 

MoV @SYNEXT, @PARCSR > SET THE MODE 

BIS RMRESET, dTXCSR ;MASTER RESET 


; SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
MOV #MTDATAICLK'MINT! BREAK, dTXCSR 


;SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC PREG 


SEQ 0044 
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007724 
007732 


007740 


010024 


010026 
010034 
010042 


010046 
010054 
010062 
010066 


010072 
010076 
010100 
010102 


010104 
010106 
010114 
010122 


010130 
010136 


010144 
010152 
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012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 
017701 
020001 


001401 
104002 


000004 
052777 
012777 
012777 


052777 
042777 


09: 


020000 
000020 


020000 
020000 
171736 
000012 
000005 
000012 
007015 
171702 


171676 


000005 
000012 
006754 


000005 
000012 
O0€ 734 
140U12 


171620 


000400 
020000 
000400 


064001 
020000 


000020 
020000 


171066 
171436 


171046 
171416 


171612 
171600 
171576 


171570 
171556 


171540 
171546 


G 4 
47 
INITIALIZE THE COMMON TAGS 


MOV #SYNEXT!F IVE !NOPAR !0, APARCSR 

BIS @SYNSCH, ARXCSR ;SET SEARCH SYNC 
+POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

BIC #CLK, ATXCSR + POKE ao DOWN 


gi- * a 77 09:08 PAGE 


BIS aoe at +POKE -CLK UP 
MOV RXDBUF, R3 ;SET UP FOR ERROR MESSAGE 
MOV #12,RO ;EXPECTED 
MOV #5, SHIFT +# OF SHIFTS 
MOV #12, STMP1 DATA CHAR 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
a" en +RXDONE ? 
MI . 
ERROR * — SHOULD BE SET 
MOV ORXOBUF,R ACTUAL 
td RO,R1 " COMPARE’ EXPECTED VS. ACTUAL 
_ +4 
ERROR 2 RECEIVED DATA DID NOT MATCH 


EXPECTED DATA - CHECK MAINT DATA 
OR RECEIVER LOGIC 


MOV #5, SHIFT ;*# OF SHIFTS 

MOV #12, $TMP1 DATA CHAR 

JSR PC, RPOKE + SHIFT IN THIS CHAR 
>NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 

MOV #5, SHIFT ;# OF SHIFTS 

MOV #12, STMP1 DATA CHAR 

JSR PC, RPOKE +SHIFT IN THIS CHAR 


MOV #140000!12,RO0 ;EXPECTED DATA PLUS 
7 RXERR & OVRRUN 


MoV ORXDBUF.R1 ACTUAL 

CMP RO,R1 ; COMPARE. EXP VS. ACT 

BEQ +4 

ERROR 2 SPECIFICALLY LOOK AT RXERR & 


;OVRRUN BITS... THEY BOTH SHOULD BE SET 


3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION. IT USES THE ERROR FLAGS 

3; TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
3; COVRRUN, RXERR) 

;; MODE: SYNEXT 

>; LENGTH: FIVE 

>; CHAR: 37 


METIS TT Titttt titi itt itt ttttti ttt testi tt ttt tities siti e tit et tite 


TST21: SCOPE 
BIS RMRESET, @TXCSR ;MASTER RESET 
MOV #SYNEXT, APARCSR ; SET THE MODE 
BIS #MIRESET,@TXCSR ; MASTER RESET 


;SET MAINT DATA, CLK. BREAK, BMAINTENANCE MODE 
Mov RMNTDATAICLK'! MINT! BREAK, daTXCSR 


> SET — ,# OF BITS, PARITY SENSE, &LOAD SYNC REG 
MOV #SYNEXT!F IVE 'NOPAR !0. OPARCSR 
BIS @SYNSCH. ARXCSR ;SET SEARCH SYNC 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK, ATXCSR *>POKE CLK DOWN 


SEQ 0045 


| 
} 
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2239 
2240 
2241 
2242 
2243 
2244 
2245 


010160 
010166 
010172 
010176 
010204 
010212 
010216 
010222 
010224 
010226 
010232 
010234 
010236 


010240 
010246 
010254 


010260 
010266 
010274 
010300 


010304 
010310 
010312 
010314 


010316 
010320 
010326 
010334 


010342 


010350 
010356 


010364 
010372 
010400 
010404 
010410 
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052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 


09: 4 


020000 
171524 
000037 
000005 
000037 
006604 


171470 


171464 


000005 
000037 
006542 


000005 
000037 
006522 
140037 


171406 


000400 
020000 
000400 


064001 


020000 
000020 


020000 
020000 
171312 
000000 
000005 


171540 


170716 
171266 


170654 
171224 


170634 
171204 


171400 
171366 
171364 


171356 


170504 


H 4 
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INITIALIZE THE COMMON TAGS 
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BIS #CLK, dTXCSR ;POKE CLK U 
MOV RXOBUF.R ;SET UP FOR * ERROR MESSAGE 
MoV #37,R0 ;EXPECTED 
MOV #5, SHIFT +# OF SHIFTS 
MOV #37, STMP1 + DATA CHAR 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
oo ws ;RXDONE 7? 
MI 
ERROR . + RXDONE vat. BE SET 
MOV ORXDBUF, R1 ACTU 
or RO, R1 ; COMPARE. EXPECTED VS. ACTUAL 
+4 
ERROR 2 ;RECEIVED DATA DIO NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
,OR RECEIVER LOGIC 
MOV #5. SHIFT ;# OF SHIFTS 
MOV #37, STMP1 ;DATA CHAR 
JSR PC, RPOKE ;SHIFT IN THIS CHAR 
;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
MoV #5, SHIFT ;# OF SHIFTS 
MoV #37, STMP1 ; DATA CHAR 
JSR PC, RPOKE ; SHIFT IN THIS CHAR 
MOV #140000!37,R0 > EXPECTED DATA PLUS 
;RXERR & OVRRUN 
MOV @RXDBUF,R1 ; ACTUAL 
CMP RO,R1 >; COMPARE EXP VS. ACT 
BEQ . +4 
ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
; OVRRUN BITS... THEY BOTA SHOULD BE SET 
3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
>; TO DETERMINE THAT IT WAS SELECTED COPRECTLY 
+ COVRRUN, RXERR) 
; MODE: SYNEXT 
>; LENGTH: FIVE 
>; CHAR: O 
en $920 55 0000 000000000000000000000000000000005055022555822995 8 9 8 8 | 
TST22: SCOPE 
BIS @MRESET. dTXCSR ;MASTER RESET 
MOV @SYNEXT, @PARCSR > SET THE MODE 
BIS #MRESET., @TXCSR -;MASTER RESET 
;SET MAINT DATA, CLK, BREAK, &MA!NTENANCE MODE 
MOV #MTDATAI'CLK'MINT'!'BREAK, dTXCSR 


;SET MODE .# OF BITS.PARITY SENSE.&LOAD SYNC REG 
MOV #SYNEXT!F IVE 'NOPAR '0, dPRRCSR 
BIS @SYNSCH, ARXCSR SET SEARCH SYNC 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC CLK, @TXCSR ;POKE on DOWN 
BIS #CLK. aTXCSR +POKE CLK UP 
MoV RXDBUF.R3 SET UP FOR ERROP MESSAGE 
MOV #0,RO ;EXPECT ED 
MoV #5, SHIFT :# OF SHIFTS 


SEQ 0046 


j 
a 
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010416 
010424 
010430 
010434 
010436 
010440 
010444 
010446 
010450 


010452 
010460 
010466 


010472 
010500 
010506 
010512 


010516 
010522 
010524 
010526 


010530 
010532 
010540 
010546 


010554 


010562 
010570 


010576 
010604 
010612 
010616 
010622 
010630 
010636 
010642 
010646 


31-MAY-77 


012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 


09: 4 


000000 
006372 
171256 


171252 


000005 
000000 
006330 


000005 
000000 
006310 
140000 


171174 


000400 
020000 
000400 


064001 


022000 
000020 


020000 
020000 
171100 
000025 
000006 
000025 
006160 
171044 


171054 


170442 
171012 


170422 
170772 


171166 
171154 
171152 


171144 


171132 
171114 


171122 
171114 


170272 
170642 
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-.. 


INITIALIZE THE COMMON TAGS 


MOV 


BEQ 
ERROR 


#0, STMP1 + DATA CHAR 

PC, RPOKE ;SHIFT IN THIS CHAR 
ORXCSR ;RXDONE ? 

." 


; RXDONE se 4 BE SET 


3RxOBUF RI ACT 

RO,R1 ; COMPARE EXPECTED VS. ACTUAL 

+4 

2 RECEIVED DATA DID NOT MATCH 
EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 

#5, SHIFT ;# OF SHIFTS 

ae Soone ;DATA CHAR 


PC, RPOKE SHIFT IN THIS CHAR 
SECOND CHARACTER WITHOUT READING RXDBUF 
#5. SHIFT ;# OF SHIFTS 
#0, STMP1 >DATA CHAR 
PC, RPOKE + SHIFT IN THIS CHAR 
#140000!0,R0 EXPECTED DATA PLUS 
+RXERR & OVRRUN 


ORXOBUF, R1 ; ACTUAL 

RO.R1 ;COMPARE EXP VS. ACT 

. +4 

2 SPECIFICALLY LOOK AT RXERR & 


;OVRRUN BITS... THEY BOTH SHOULD BE SET 


;; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION. IT USES THE ERROR FLAGS 
;;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
>; COVRRUN, RXERR) 

>; MODE: SYNEXT 

>; LENGTH: S1X 

; + CHAR: 25 


METTTT TTT titi it tt ttttitt ttt tt ttt test tt ttt tit siti itt titi tts: 


TST23: SCOPE 


>SET MAINT DATA, 


MoV 
> SET mag * hy OF 


BMRESET.dTXCSR ;MASTER RESET 
#SYNEXT, APARCSR ; SET THE MODE 
@MRESET,@TXCSR -;MASTER RESET 


CLK, BREAK, BMAINTENANCE MODE 
#MTDATA'CLK'MINT!BREAK, dTXCSR 


BITS, PARITY SENSE.&LOAD SYNC REG 
@SYNEXT!S1X!NOPAR !0, @PARCSR 
#SYNSCH. ARXCSR ;SET SEARCH SYNC 


BI Is 
>POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC 


#CLK, @TXCSR +POKE CLK or. 


#CLK, @TXCSR ;POKE CLK U 
RXDBUF,R3 : SET uP fon ERROR MESSAGE 
#25,R0 ;EXPECTED 
#6, SHIFT ;# OF SHIFTS 
#25, STMP1 > DATA CHAR 
PC, RPOKE > SHIFT IN THIS CHAP 
@RXCSR ;RXDONE 7? 
+4 


sa 
} 
| 


SEQ 0047 | 


J 4 
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2351 010650 104004 ERROR \y + RXDONE SHOULD BE SET 
2352 010652 017701 171040 MoV ORXOBUF, R1 ACTUAL 
2353 010656 020001 CMP RO,R1 > COMPARE. EXPECTED VS. ACTUAL 
2354 010660 001401 BEQ . +4 
2355 010662 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
2356 ; EXPECTED DATA - CHECK MAINT CATA 
2357 ;OR RECEIVER LOGIC 
2358 010664 012767 O00006 170230 MOV #6, SHIFT ;# OF SHIFTS 
2359 010672 012767 000025 170600 MOV os ggg? dha ;DATA CHAR 
2360 010700 004767 006115 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
2361 »NOW SHIFT IN A SECOND CHARACTER WITHOUT A at RXDBUF 
2362 010704 012767 OO00006 170210 MoV #6, SHIFT 7 # OF SH 
2363 010712 012767 000025 170560 MOV #25, STMP1 ;DATA CHAR 
2364 010720 004767 006076 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
2365 010724 012700 140025 MoV #140000!25,R0 ; EXPECTED DATA PLUS 
2366 + RXERR & OVRRUN 
2367 ° 010730 017701 170762 MOV ORXOBUF, R1 ACTUAL 
2368 010734 020001 CMP RO.R1 COMPARE EXP VS. ACT 
2369 010736 001401 BEQ . +4 
2370 010740 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
ye ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
2373 >; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
2374 >;RECEIVER SECTION, IT USES THE ERROR FLAGS 
2375 3; 70 DETERMINE THAT IT WAS SELECTED CORRECTLY 
2376 >; COVRRUN., RXERR) 
2377 >; MODE: SYNEXT 
2378 ;; LENGTH: SIX 
oo >; CHAR: 52 
238 hee 
2381 Fe 6995590060000 00000000000000000000900000000000000000009999009 9 9 | 
2382 010742 oO00004 TST24: SCOPE 
2383 010744 052777 OOO400 170754 BIS #MRESET. @TXCSR ;MASTER RESET 
2384 010752 012777 S20000 170742 MOV #SYNEXT, APARCSR ; SET THE MODE 
ore 010760 052777 O00400 170740 BIS #MRESET, @TXCSR ;MASTER RESET 
2386 
2387 >; SET MAINT DATA, CLK. BREAK, BMAINTENANCE MODE 
2388 010766 012777 064001 170732 MOV #MTDATA!CLK'MINT! BREAK, aTXCSR 
2389 ’ 
2390 ;SET MODE .# OF BITS, PARITY SENSE.&LOAD SYNC REG 
2391 010774 012777 022000 170720 MOV #SYNEXT!SIX!NOPAR !O, APARCSR 
2392 011002 052777 000020 170702 BIS #SYNSCH, ARXCSR ;SET SEARCH SYNC 
2393 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
2394 011010 042777 O20000 170710 BIC #CLK, aTXCSR ;POKE CLK 
2395 011016 052777 020000 170702 BIS #CLK, ATXCSR >;POKE CLK 
2396 011024 016703 170666 MOV RXDBUF, R3 ;SET UP ron ERROR MESSAGE 
2397 011030 012700 000052 MoV #52,RO0 ;EXPECTED 
2398 011034 012767 OO00006 170060 MoV #6. SHIFT 7# OF SHIFTS 
2399 011042 012767 000052 170470 MOV #52, STMP1 ;DATA CHAR 
2400 011050 004767 005746 JSR PC, RPOKE ; SHIFT InN THIS CHAR 
2401 011054 105777 170632 TSTB @RXCSR ;RXDONE ? 
2402 011060 100401 BNI _ +4 
2403 011062 104004 ERROR iy ;RXDONE SHOULD BE SET 
2404 011064 017701 170626 MoV OR XOBUF, R1 > ACTUAL 
2405 011070 020001 CMP RO.R1 >; COMPARE EXPECTED VS. ACTUAL 


2406 011072 001401 BEQ +4 








K 4 
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2407 011074 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 
2408 ; EXPECTED DATA - CHECK MAINT DATA 
2409 ;OR RECEIVER LOGIC 

2410 011076 012767 OO00006 170016 MOV #6, SHIFT ;# OF SHIFTS 

2411 011104 012767 O00052 170366 MOV #52, STMP1 ;DATA CHAR 

2412 011112 004767 005704 JSR PC, RPOKE > SHIFT IN THIS CHAP 
2413 ;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
2414 011116 012767 OO0006 167776 MOV #6, SHIFT ;*# OF SHIFTS 

2415 011124 012767 O00052 170346 MoV #52, STMP1 DATA CHAR 

2416 011132 004767 005664 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
2417 011136 012700 140052 MOV #140000'52.R0 ;EXPECTED DATA PLUS 
2418 ;RXERR & OVRRUN 

2419 O11142 017701 170550 MOV ORXOBUF, R1 +> ACTUAL 

2420 011146 020001 CMP RO.R1 ; COMPARE EXP VS. ACT 

2421 011150 001401 BEQ +4 

2422 011152 104002 ERROR 2 ; SPECIFICALLY LOOK AT RXERR & 
a ;OVRRUN BITS... THEY BOTH SHOULD BE SET 
424 

2425 +; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
2426 ;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
2427 ;;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
2428 +; COVRRUN, RXERR) 

2429 ;; MODE: SYNEXT 

2430 >; LENGTH: S1X 

2431 >; CHAR: 77 

2432 33 

2433 Fe Oo 20050005 0000000000 000000000 000000000000008 008000000999 02 828 9 | 
2434 011154 000004 TST25: SCOPE 

2435 011156 052777 OOO400 170542 BIS #MRESET. @TXCSR ;MASTER RESET 

2436 011164 012777 O20000 170530 MOV #SYNEXT, APARCSR ; SET THE MODE 

2437 011172 052777 OOO400 170526 BIS #MRESET. @TXCSR ;MASTER RESET 

2438 

2439 ;SET MAINT DATA, CLK, BREAK. &BMAINTENANCE MODE 

2440 011200 012777 064001 170520 MoV #MTDATA!ICLK' MINT! BREAK, dTXCSR 

2441 

2442 ;SET MODE .& OF BITS.PARITY SENSE.&LOAD SYNC REG 

2443 011206 012777 022000 170506 MOV #SYNEXT!S1X!NOPAR 'O, OPARCSR 

2444 011214 052777 000020 170470 BIS @SYNSCH. ARXCSR ;SET SEARCH SYNC 

2445 ;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

2446 011222 042777 O20000 170476 BIC #CLK, ATXCSR >POKE CLK DOWN 

2447 011230 052777 020000 170470 BIS #CLK, ATXCSR >POKE CLK UP 

2448 011236 016703 170454 MOV RXDBUF,R3 ;SET UP FOR ERROR MESSAGE 
2449 011242 012700 000077 MOV #77,RO ;EXPECTED 

2450 011246 012767 OO00006 167646 MOV #6, SHIFT ;# OF SHIFTS 

2451 011254 012767 000077 170216 MOV #77, STMP1 ;DATA CHAR 

2452 011262 004767 005534 JSR PC, RPOKE ; SHIFT IN THIS CHAR 

2453 011266 105777 170420 TSTB @RXCSR ;RXDONE ? 

2454 011272 100401 BMI . +4 

2455 011274 104004 ERROR uy ;RXDONE SHOULD BE SET 

2456 011276 017701 170414 MoV ORXDBUF. R1 ; ACTUAL 

2457 011302 020001 CMP RO.R1 ; COMPARE EXPECTED VS. ACTUAL 

2458 011304 001401 BEQ +4 

2459 011306 104002 ERROR 2 ;RECEIVED DATA DID NOT MATCH 

2460 ; EXPECTED DATA - CHECK MAINT DATA 

2461 ;OR RECEIVER LOGIC 


2462 011310 012767 000006 167604 MOV #6, SHIFT ;# OF SHIFTS 
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2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 


011316 
011324 


011330 
011336 
011344 
011350 


011354 
011360 
011362 
011364 


011366 
011370 
011376 
011404 


011412 


011420 
011426 


011434 
011442 
011450 
011454 
011460 
011466 
011474 
011500 
011504 
011506 
011510 
011514 
011516 
011520 


011522 
011530 
011536 


011542 


31-MAY-77 


012767 
004767 


012767 
012767 
004767 
012700 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 
012767 
004767 


012767 


09:4 OMMON TAGS 
000077 170154 MoV at bbocn ;DATA CHAR 
005472 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
000006 167564 MoV #6, SHIFT if oa SHIFTS 
000077 170134 MOV #77, STMP1 ; DATA CHAR 
005452 JSR PC, RPOKE ;SHIFT IN THIS CHAR 
140077 MOV #140000!77,R0 $;EXPECTED DATA PLUS 
#RXERR & OVRRUN 
170336 MOV ORXOBUF, R1 ACTUAL 
CMP RO.R1 ; COMPARE. EXP VS. ACT 
BEQ . +4 
ERROR 2 > SPECIFICALLY LOOK AT RXERR & 
; OVRRUN BITS... THEY BOTH SHOULD BE SET 
3; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION, IT USES THE ERROR FLAGS 
3;TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
+; COVRRUN, RXERR) 
>; MODE: SYNEXT 
>; LENGTH: SIX 
>; CHAR: O 
Pe oS 0550000000005 000000000000000000000000000090000980908 0 098d ® 0 9 | 
TST26: SCOPE 
000400 170330 BIS @MRESET, @TXCSR ;MASTER RESET 
020000 170316 MOV #SYNEXT, OPARCSR ; SET THE MODE 
000400 170314 BIS @MRESET. @TXCSR ;MASTER RESET 
;SET MAINT DATA, CLK, BREAK, BMAINTENANCE MODE 
064001 170306 MOV @MTDATA!CLK! MINT! BREAK, dTXCSR 
:SET MODE .# OF BITS.PARITY SENSE. &LOAD SYNC REG 
022000 170274 Mov #SYNEXT!S1X!NOPAR '0, dPARCSR 
000020 170256 BIS @SYNSCH. ARXCSR ;SET SEARCH SYNC 
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
020000 170264 BIC #CLK, aTXCSR ;POKE ae DOWN 
020000 170256 BIS #CLK, ATXCSR ;POKE CLK UP 
170242 MoV RXDBUF,R3 ;SET UP FOR ERROR MESSAGE 
000000 MoV #0,RO ;EXPECTED 
000006 167434 MoV #6. SHIFT ;# OF SHIFTS 
000000 170004 MoV #0, STMP1 ;DATA CHAR 
005322 JSR PC, RPOKE ; SHIFT IN THIS CHAR 
170206 Le ORXCSR ;RXDONE ? 
MI _ +4 
ERROR 4 ;RXDONE SHOULD BE SET 
170202 MOV aR XDBU FRI >; ACTUAL 
CMP RO.R1 ; COMPARE EXPECTED VS. ACTUAL 
BEQ . +4 
ERROR 2 ;RECEIVED DATA DID NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
;OR RECEIVER LOGIC 
000006 167372 MOV #6. SHIFT ;# OF SHIFTS 
000000 167742 mov gt ee ;DATA CHAR 
005260 JSR RPOKE ;SHIFT IN THIS CHAR 
;NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
000006 167352 MuVv #6. SHIFT ;# OF SHIFTS 


ai- ie -77 09:08 PAGE 


52 
INITIALIZE THE C 


. § 


SEQ 0050 





DZDUR-B MACY11 30(104%6) 


DZDUKB. M11 


011550 
011556 
011562 


011566 
011572 
011574 
011576 


011600 
011602 
011610 
011616 


011624 


011632 
011640 


011646 
011654 
011662 
011666 
011672 
011700 
011706 
011712 
011716 
011720 
011722 
011726 
011730 
011732 


011734 
011742 
011750 


011754 
011762 
011770 
011774 


31-MAY-77 


012767 
004767 
012700 


017701 
020001 
001401 


104002 . 


000004 
C52777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020091 
001401 
104002 


012767 
012767 
004767 


012767 
012767 
004767 
012700 


21-SEP-77 09:08 PAGE 53 
09: 48 INITIALIZE THE COMMON TAGS 


000000 
005240 
140000 


170124 


000400 
020000 
000400 


064001 


024000 
000020 


020000 
020000 
170030 
000125 
000007 
000125 
005110 
167774 


167770 


000007 


140125 


167722 


176116 
170104 
170102 


170074 


170062 
170044 


170052 
170044 


167222 
167572 


167160 
167570 


167140 
167510 


BEQ 
ERROR 


nh 4 


#0, STMP1 + DATA CHAR 

PC, RPOKE +SHIFT IN THIS CHAR 

#140000!0,R0 EXPECTED DATA PLUS 
+RXERR & OVRRUN 

ORXDBUF, R1 


; ACTUAL 
RO.R1 ;COMPARE EXP US ACT 


. +4 
2 SPECIFICALLY LOOK AT RXERR & 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 


+; THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
;;RECEIVER SECTION, |1T USES THE ERROR FLAGS 
;;T0 DETERMINE THAT IT WAS SELECTED CORRECTLY 
32 COVRRUN, RXERR) 

+; MODE: SYNEXT 

>; LENGTH: SEVEN 

+; CHAR: 125 


PETTTTTtittttttt ttt t ttt ttt titi ttt tttt ttt ttt tt ttt titi ttt ttt T 


TST27: SCOPE 
BiS 
MOV 
BIS 


>SET MAINT DATA, 
MOV 


;SET MODE .# OF 
MOV 
BIS 


@MRESET.QTXCSR ;MASTER RESET 
#SYNEXT, @PARCSR > SET THE MODE 
#MRESET, @TXCSR ; MASTER RESET 


CLK, BREAK, BMAINTENANCE MODE 
@MTDATA!CLK!MINT! BREAK, dTXCSR 


BITS.PARITY SENSE. &LOAD SYNC REG 
#SYNEXT! SEVEN! NOPAR !0, dPARCSR 
@SYNSCH, ARXCSR -SET SEARCH SYNC 


;POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC 


BIS 
MoV 


;NOW SHIFT IN A 
MoV 


MOV 
JSR 
MOV 


#CLK, ATXCSP +POKE CLK DOWN 
#CLK, ATXCSR +POKE CLK UP 


RXOBUF, R3 ;SET UP FOR ERROR MESSAGE 
#125.RO ; EXPECTED 

#7, SHIFT ;# OF SHIFTS 

#125, STMP1 DATA CHAR 

PC, RPOKE ;SHIFT IN THIS CHAR 
O@RXCSR ;RXDONE ? 

. +4 

4 ;RXDONE SHOULD BE SET 

OR XDBUF, R1 AL 


+ ACTU 
RO.R1 ;COMPARE EXPECTED VS. ACTUAL 


. +4 

2 ;RECE!VED DATA DID NOT MATCH 
+ EXPECTED DATA - CHECK MAINT DATA 
/OR RECEIVER LOGIC 


#7, SHIFT :# OF SHIFTS 

4A _" +DATA CHAR 

PC, RPOKE +SHIFT InN THIS CHAR 
SECOND CHARACTER WITHOUT READING RXDBUF 
#7, SHIFT +# OF SHIFTS 

#125, STNP1 DATA CHAR 

PC, RPOKE + SHIFT IN THIS CHAR 


#140000!125.R0 ;EXPECTED DATA PLUS 
*RXERR & OVRRUN 


SEQ 0051 | 











































DZDURB. M 


012000 
012004 
012006 
012010 


012012 
012014 
012022 
012030 


012036 


012044 
012052 


012060 
012066 
012074 
012100 
012104 
012112 
012120 
012124 
012130 
012132 
012134 
012140 
012142 
012144 


012146 
012154 
012162 


012166 
012174 
012202 
012206 


012212 
012216 
012220 
012222 





DZDUR-B MACY11 3011046) 
M11 31-MAY-7 


017701 
020001 
001401 
104002 


000004 
052777 
012777 
052777 


012777 


012777 
052777 


042777 
052777 
016703 
012700 
012767 
012767 
004767 
105777 
100401 
104004 
017701 
020001 
001401 
104002 


012767 


012767 
004767 


012767 
012767 


017701 
020001 
001401 
104002 


7 09: 


167712 


000400 
020000 
000400 


064001 


024000 
000020 


020000 
020000 
167616 
000052 
000007 
000052 
004676 
167562 


167556 


000007 
000052 
004634 


000007 
000052 
004614 
140052 


167500 


167704 
167672 
167670 


167662 


167650 
167632 


167640 
167632 


167010 
167360 


166746 
167316 


166726 
167276 
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54 
INITIALIZE THE COMMON TAGS 


MOV 


ORXOBUF, R1 ACTU 

— COMPARE. EXP 4S ACT 

.= 

2 +SPECIF ICALLY LOOK AT RXERR & 


+OVRRUN BITS... THEY BOTH SHOULD BE SET 


++ THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
+;RECEIVER SECTION. IT USES THE ERROR FLAGS 
++TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
++ COVRRUN, RXERR) 

+; MODE: SYNEXT 

++ LENGTH: SEVEN 

++ CHAR: 52 


ESitttittsttttttttttttttttttttttttTTTTTTTTTTTTTT TTT TTT TTT TTT TTT 


TST30: SCOPE 
BIS 
MOV 
BIS 


#MRESET.@TXCSR ;MASTER RESET 
#SYNEXT, @PARCSR ; SET THE MODE 
#MRESET.@TXCSR ; MASTER RESET 


+ SET ong * DATA, CLK. BREAK, BMAINTENANCE MODE 


+ SET ge | -# OF 
Mov 


#MTDATAICLK!MINT! BREAK, dTXCSR 


BITS,PARITY SENSE. &LOAD SYNC REG 
#SYNEXT! SEVEN! NOPAR !0, PARCSR 
@SYNSCH, ARXCSR ; SET SEARCH SYNC 


BIS 
; POKE oe GET LOGIC INTO SYNCRONIZATION 


MOV 


BEQ 
ERROR 





#CLK, ATXCSR +POKE CLK DOWN 

#CLK, ATXCSR +POKE CLK UP 

RXDBUF, R3 + SET UP FOR ERROR MESSAGE 
#52,RO0 ;EXPECTED 

#7, SHIFT +# OF SHIFTS 

#52. STMP1 DATA CHAR 

PC, RPOKE + SHIFT IN THIS CHAR 
«yo + RXDONE 


. :RXDONE SHOULD BE SET 

IRXDBUF. RI 7 ACTUAL 

RO-R1 ; COMPARE EXPECTED VS. ACTUAL 
+ 


2 ;RECEIVED DATA DID NOT MATCH 
; EXPECTED DATA - CHECK MAINT DATA 
7OR RECEIVER LOGIC 


-v 


#7, SHIFT +# OF SHIFTS 

tyqh Heng DATA CHAR 

PC, RPOK +SHIFT IN THIS CHAR 
SECOND. CHARACTER WITHOUT oe RXDBUF 
#7. SHIFT +# OF SHIFTS 

#52, STMP1 +DATA CHAR 


PC, RPOKE 7SHIFT InN THIS CHAR 
#140000!52. RO + EXPECTED DATA PLUS 
+ RXERR & OVRRUN 
OR XDBUF,R ACTUAL 
RO.R1 COMPARE’ EXP VS. ACT 
+4 


2 


* SPECIFICALLY LOOK AT RXERR & v 


i 


SEQ 0052 


DZDUR-B MACY11 30(104%6) 
31-MAY-77 


DZDURB. M11 


012224 
012226 
012232 
012234 
012236 
012242 
012246 
012252 
012254 
612260 
012262 
012266 
012272 


012274 
012300 
012306 
012314 
012316 
012322 


012324 
012332 
012334 
012340 
012344 


012352 
012360 
012366 
012372 
012374 
012402 
012406 
012414 
012422 
012430 
012436 
012444 
012452 
012460 
012466 


012470 
012472 
012474 


oco00n4 
004767 
104401 
01£362 
104413 
104401 
105767 
001511 
005767 
001007 
104401 
016700 
000000 


000167 
062767 
062767 
000241 
006167 
103410 


036767 
001762 
004767 
000167 
012767 


016767 
016767 
004767 
000441 
016767 
004767 
016767 
062767 
016767 
062767 
016767 
062767 
016767 
016767 
000207 


000001 
006 
001712 


8 5 
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09 INITIALIZE THE COMMON TAGS SEQ 0053 
;OVRRUN BITS... THEY BOTH SHOULD BE SET 
;END OF PASS 
; TYPE NAME OF TEST 
; UPDATE PASS COUNT 
;CHECK FOR EXIT TO ACT-11 
;RESTART TEST 
| EOP: SCOPE 
000340 JSR PC, CKSHR 
TYPE ; TYPE NAME OF TEST 
MEPASS 
012470 CONURT , OUTCRY 
015201 TYPE  , DEVICE 
166700 TSTB  MULTD ;ARE YOU RUNNING MULTIPLE DEVICES ? 
BEQ CCC ;NO, JUMP AROUND 
166706 TST ACTREG ;ARE ANY DEVICES ACTIVE ? 
BNE RUNIT ;YES 
015213 TYPE  ,MCOW ;NO 
166074 MoV ACTREG, RO ;DISPLAY ACTREG 
HALT ; SELECT SOMETHING TO RUN @ ACTREG 
;SELECT SWITCHES & HIT CONTINUE (PUT SWOO =1) 
167652 JMP START ; START OVER AGAIN...... YOU DESELECTED EVERYTHING 
000010 166646 RUNIT: ADD #10, BASEADD ;NEXT BLOCK (ADDRESSES) 
O0CO10 166646 ZERO: ADD #10, BASE IV ;NEXT BLOCK (VECTORS) 
L 
166646 ROL ROTAOD ;UP DATE ROTATING POINTER 
BCS 2$ 71S IT THE LAST DEVICE 
;T0 BE TESTED IN THIS PASS ? 
166640 166634 BIT ROTADD,ACTREG TEST THIS DEVICE FOR ACTIVE STATUS 
BEQ RUNIT ; IF NOT ACTIVE. TRY NEXT ADDRESS 
000034 JSR PC, REPLAY ; CALCULATE NEW PARAMETERS 
900210 JMP RESTRT ;YES IT WAS ACTIVE, TEST THIS DEVICE 
000001 166616 25: Mov #1, ROTADD ;0K!,NOW SET UP ROTATING 
;POINTER FOR NEXT MULTIPLE PASS 
166600 166574 MOV KEEPADD, BASEADD ; RESTORE BASE ADDRESS 
166600 166574 MoV KEEPiV,BASEIV ;RESTORE BASE INTERRUPT VECTORS 
000002 JSR PC, REPLAY ;CALC NEW PARAMETERS 
BR ccc ; JUMP AROUND REPLAY 
166554 004416 REPLAY: MOV BASEADD. DUBASE ;SET UP FOR NEW ADDRESSES 
004260 JSR PC, DUADOR ; CREATE NEW ADDRESSES 
166550 167322 nov BASEIV.OURIV CREATE DURIV 
000002 166540 ADD #2, BASE IV 
166534 167310 MoV BASEIV.DURIS  ;CREATE DURIS 
000002 166524 ADD #2, BASE IV 
166520 167276 Mov BASEIV,DUTIV CREATE OUTIV 
000002 166510 ADD #2, BASE IV 
166504 167264 Mov BASEIV,DUTIS  .CREATE DUTIS 
167252 166474 MOV DURIV,BASEIV  ; RESTORE 
RTS PC 
OUTCRY: 1 
002 BYTE 6.2 
RXCSR 


halt sacl 


DZ0UR-B — 30(1046) 


DZDUKB. M 31-MAY-77 09:4 


012476 
012476 
012502 
012506 
012512 
012516 
012524 
012532 
012536 
012540 
012542 
012544 
012546 
012550 
012552 
012554 
012554 
012562 
012566 


012572 
012576 
012600 
012606 
012610 
012614 
012616 
012624 
012632 
012640 
012642 
012646 
012652 
012656 
012660 
012662 
012666 
012670 
012672 
012674 
012676 
012700 
012704 
012706 
012710 
012712 
012714 


012716 


005067 
005067 
005067 
005267 
016767 
016767 
013701 
001406 
000005 
000005 
004711 
000240 
000240 
000240 


012767 
004767 
000167 


005737 
001040 
022767 
001034 
105777 
100031 
017767 
042767 
122767 
001017 
104401 
005137 
104401 
104413 


000176 
000005 


166700 
166710 
166671 
166374 
166370 
166362 
000042 


003376 
000004 
170516 


000042 
000: 76 


166630 


166624 
177600 
000007 


015767 
012706 
015777 


016010 


001 
012706 


002 


166356 
167002 


166624 


166632 


000422 
000414 
000406 


c 5 
56 
INITIALIZE THE COMMON TAGS 
ccc: 


Zi- + tsi 09:08 PAGE 


CLR STSTNM 


CLR SERRPC 
CLR SERFLG 
INC PASCNT 


MOV PASCNT, LIGHTS 
MOV PASCNT, SPASS 
MOV O#42,R1 
BEQ RESTRT 


R 
SENDAD: JSR PC, (R1) 


RESTRT: 


JSR PC, CKSWR 
JMP . BEGIN 


MOV #TST1+2, SLPADR 


CLEAR TEST NUMBER 
CLEAR LAST ERROR PC 
+CLEAR ERROR FLAG 

; UPDATE PASS COUNT 
+DISPLAY PASS COUNT 
PASS COUNT TO APT 

+ CHECK FOR ACT-11 OR DOP 

+ 1F NO CONTINUE TESTING 


+LOAD LAST ADDR 


+ CHECK SWITCH REGISTER ROUTINE. 
+CHECKS TO ALLOW FOR < G> TO ALLOW 
>THE CHANGING OF LOCATION 176 


CKSWR: TST 842 
BNE OUT 
CMP #SWREG, SWR 
BNE OUT 
TSTB a$TKS 
BPL OUT 


MOV dSTKB,. MSG 

BIC #177600, . MSG 

CMPB #7,.MSG 

BNE OUT 

TYPE MCNTG 
CNTLU: COM O*ROSW 

TYPE , MMSWR 


PARAM 


BYTE 0,1 
QUT: CLR @RDSH 


R 
ROSH: .wWoRD O 
SWREGL: 1 

. BYTE 6,2 


; SOFTWARE SWR PRESENT? 
; NO--LEAVE 

; CHECK TTY READY 

, NO--LEAVE 

;GET CHARACTER 

;STRIP JUNK 

ee 4-4.) 4 

NO 


;CHECK FOR FREEZE ON CURRENT DATA 


SEQ 0054 


DZDUR-B MACY11 30(104%6) 


DZDURB. M11 


2743 
2744 
2745 


012720 
012724 
012732 
012734 
012740 


012742 
012746 
012750 
012752 
012754 
012756 
012762 
012770 
012772 
013000 
013002 
013006 
013012 
013014 
013022 
013024 
013026 
013030 
013032 
013034 
013040 
013042 
013046 
013050 
013054 
013056 
013060 
013062 
013064 
013070 
013072 
013076 
013102 
013104 


31-MAY-77 


004767 
032777 
001402 
016716 
060002 


105767 
100002 
000000 
0004 30 
010046 
017600 
122767 
001011 
132767 
001405 
010067 
004767 
000000 
132767 
001003 
112046 
001005 
005726 
012600 
062716 
000092 
122716 
001430 
122716 
001006 
005726 
104401 
001523 
105067 
000755 
004767 
126726 
001350 
016746 


0 5 
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55 MAXKAKAAAAA AAA AREA AAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AA AAA AAA RTS 

;XROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

/XTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

, XNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


09: 48 INITIALIZE THE COMMON TAGS 
177646 . SCOP1: JSR PC, CKSWR 
001000 166506 BIT #SWO9, d9SWR 
BEQ 1$ 
166150 MoV LOCK, (SP) 
15: RTI 
.SBTTL TYPE ROUTINE 
; XNOTE2: 
> XNOTES: 
8 
> XCALL: 
a USING A TRAP INSTRUCTION 
TYPE , MESADR 
08 
TYPE 
+ MESAOR 
x 
166511 STYPE: TSTB STPFLG 
BPL 1% 
HALT 
BR 3$ 
1: MoV RO, -(SP) 
000002 MoV a2(SP),RO0 
000001 166556 ce #APTENV, SENV 
N 
000100 166547 BITB 
BEQ 
000004 MOV RO, 61% 
000006 ' JSR PC. SATY3 
615: WORD O 
000040 166525 62%: BITB #APTCSUP. SENVM 
BNE 6058 
2S: MOVB (RO)+,-(SP) 
BNE 4g 
TST (SP )+ 
60S: MoV (SP)+,RO 
000002 38: 94 #2, (SP) 
000011 4S. CMPB #HT, (SP) 
BEQ 8$ 
000200 CMPB #CRLF, (SP) 
BNE 53 
TST (SP )+ 
TYPE 
SCRLF 
060130 CLRB SCHARCNT 
BR 28 
o000s6 5S: JSR PC, STYPEC 
166354 6S: CMPB GF ILLC, (SP)+ 
BNE 2$ 
166344 MoV SNULL, - (SP) 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


>; 1S THERE A TERMINAL? 
;;BR IF YES 

;;HALT HERE IF NO TERMINAL 
>, LEAVE 


7; SAVE RO 

>;GET ADDRESS OF ASCIZ STRING 
>;RUNNING IN APT MODE 

;;NO.GO CHECK FOR APT CONSOLE 


62$ 
ee +;SPOOL MESSAGE TO APT 
62$ 


;;NO,GO CHECK FOR CONSOLE 

;;SETUP MESSAGE ADDRESS FOR APT 

+; SPOOL MESSAGE TO APT 

;;MESSAGE ADDRESS 

>; APT CONSOLE SUPPRESSED 

3; YES,SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

,; IF TERMINATOR POP IT OFF THE STACK 
>;RESTORE RO 

;;ADJUST RETURN PC 

>; RETURN 

;>;BRANCH IF <HT> 


>;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
>; TYPE A CR AND LF 


+;CLEAR CHARACTER COUNT 

+;GET NEXT CHARACTER 

+;GO TYPE THIS CHARACTER 

71S 1T TIME FOR FILLER CHARS 7? 
:; 1F NO GO GET NEXT CHAR 

+>GET # OF FILLER CHARS. NEEDED 


SEQ 0055 


DZDUR-B MACY11 30(104%6) 
31-MAY-77 


DZDURB. M11 


013110 
O1311% 
013116 
013122 
013126 


013130 
013134 
013140 
013146 
013150 
013152 
013154 
013160 
013162 
013170 
013176 
013200 
013204 
013206 
013214 
013216 
013220 
013222 


013224 
013232 
013236 
013242 
013244 
013246 
013250 
013254 


013340 


105366 
002770 
004767 
105367 
000770 


112716 
004767 
132767 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 
000000 
000207 


017667 
062716 
105767 
001036 
104401 
000000 
012704 
012703 
105777 
100375 
117714 
142714 
121427 
001760 
122427 
001413 
105777 
100375 
117777 
005303 
001353 
104401 
015307 
000742 
000002 


E ahoiean 
21-SEP-77 09:08 PAGE 58 
09: 48 TYPE ROUTINE SEQ 0056 
>; AND THE NULL CHAR. 
000001 73: DECB 1(SP) ;;D0ES A NULL NEED TO BE TYPED? 
BLT 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
000032 JSR PC, STYPEC ;;GO TYPE A NULL 
000072 DECB SCHARCNT ;;00 NOT COUNT AS A COUNT 
BR 7$ ++ LOOP 
;HORIZONTAL TAB PROCESSOR 
000049 8s: MOvVB #' , CSP) ;;REPLACE TAB WITH SFACE 
000014 95: JSR PC, STYPEC 3; TYPE A SPACE 
000007 000052 BITB #7, SCHARCNT ;;BRANCH IF NOT AT 
BNE 9$ +; TAB STOP 
TST (SP )+ ;;POP SPACE OFF STACK 
BR 23 ;;GET NEXT CHARACTER 
166270 STYPEC: TSTB asTPS ;; WAIT UNTIL PRINTER IS READY 
BPL STYPEC 
000002 166262 MOVB 2(SP), dSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG 
000015 900002 CMPB #CR, 2(SP) 33 1S CHARACTER A CARRIAGE RETURN? 
BNE 1$ ;;BRANCH IF NO 
000014 CLRB SCHARCNT ++ YES~-CLEAR CHARACTER COUNT 
BR STYPEX ; EXIT 
000012 000002 1%: CMPB #LF.2(SP) 31S CHARACTER A LINE FEED? 
BEQ STYPEX ;;BRANCH IF YES 
INCB (PC) + ;; COUNT THE CHARACTER 
SCHARCNT:. WORD O >, CHARACTER COUNT STORAGE | 
STYPEX: RTS PC | 
;ASCII STRING INPUT ROUTINE 
000000 000014 . INSTR: MOV a(SP),.MSG ;PICK UP MESSAGE 
000002 ADD #2, (SP) ; JUMP AROUND MESSAGE FOR RTi 
166304 TSTB SENV > APT CONTROL 
BNE INSTR2 ;YES NO TYPE 
INST1: TYPE 
MSG: fa] 
016022 MoV § INBUF,R4 ;GET STARTING LOC OF INBUF 
000007 MOV #7,R3 ;MAX # OF CHARS 
166160 1$ TSTB asTKS ; TTY FLAG 
BPL 1$ 
166154 MOVB OSTKB, (R4) ; TAKE CHAR 
000200 BICB #200, (R4) >STRIP 
000925 CMPB (R4Y),#25 iécw¢t @ 
BEQ INST1 
000015 CMPB (RY) +, #15 ; CHECK FOR CR 
BEQ INSTR2Z 
166132 23: — seers ; TEST FLAG 
L 
166122 166124 MOVB aSTKB. ASTPB ;ECHO CHARACTER 
DEC R3 ;BID YOU TYPE TOO MANY CHARS 7 
BNE 1$ 
_ INSTE: TYPE 
MQM 37 
8R _INST1 <cRETRY 
INSTR2: RTI 


UZDUK 


013342 
013344 
013350 
013354 
013360 
013364 
013370 
013372 
013374 
013400 
013404 
013406 
013412 
013414 
013420 
013422 
013426 
013430 
013434 
013436 
013440 
013442 
013444 
013446 
013452 
013454 
013460 
013462 
013464 


013466 
013472 
013474 
013500 
013502 
013506 


013510 
013514 
013516 
013522 
013526 
013530 
013532 
013534 
013536 
013540 
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011605 
012567 
012567 
012567 
112567 
112567 
010516 
005005 
012704 
122714 
001420 
121427 
002415 
121427 
003012 
142714 
152405 
122714 
001414 
006305 
006305 
006305 
000760 
122714 
001003 
005737 
001023 
104407 
000742 


020567 
101365 
020567 
103762 
136705 
001357 


016704 
010524 
062705 
105367 
001372 
000002 
000000 
000000 
000000 
000000 
013541 


09: 4 


000162 
000160 
000156 
000154 
000151 


0001s 
000060 
000067 
000060 
000015 


G00u15 
012706 


000042 
000032 
000032 


000022 


000002 
000013 
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TYPE ROUTINE 


CONVERT ASCII STRING TO OCTAL 


PARAM: MOV 
MOV 


PARAM1: CLR 
M 


1% CMPB 


PARERR: CMPB 


BNE 
1208: INSTER 
BR 


(SP),RS ;PUT CONTENTS OF SP INTO R5 
(R5)+,LOLIM ;PUT LOW LIMIT INTC LOLIM 
(RS)+,HILIM ;PUT HIGH LIMIT INTO HILIM 
(R5)+, DEVADR PUT STORE LOC INTO DEVADR 
(R5)+,LOBITS ;PUT MASK INTO LOBITS 

(R5)+, ADRCNT +PUT COUNT INTO ADRCNT 

R5, (SP) ; RESTORE RETURN ADOR ON STACK FOR RTI 


R5 

# INBUF, RY 

#15, (R4) +CR ? 

PARERR ;YOU TYPED CR TOO SOON ! 
(R4), #60 ;LOW LIMIT ASCII O 
PARERR 

(R4), #67 ;HIGH LIMIT ASCII 7 
PARERR 

#60, (RY) + CONVERT TO OCTAL 
(R4)+,R5 + STORE AWAY ITS AN OK CHAR 
#15, (R4) -CR 

LIMITS ;NOW CHECK FOR HIGH &LOW LIMIT CONDOS 
R5 ;ALLOCATE ROOM FOR NEXT CHAR 
RS 

R5 

1$ 

#15, (R4) i CR? 

120% 

da ROSH *CK SWR USED 

PARTI 

;RETRY 

PARAMI 


;TEST TO SEE IF NUMBEP IS WITHIN LIMITS 


LIMITS: CMP 
BHI 
CMP 
BLO 
BITB 
BNE 


RS. HILIM 

PARERR ,THE # 1S TOO HIGH 

R5,LOLIM 

PARERR ;THE # IS TOO LOW 

LOBITS,.R5 > TEST BY MASKINGTHE # 
PARERR 


;STORE NUMBER AT SPECIFIED ADDRESS 


MOV 
18: MoV 
ADD 
DECB 
BNE 
PARTI: RTI 
LOLIM: 90 
HILiM: G 
DEVADR: 0 


LOBITS: 0 
ADRCNT=LOBITS+1 


DEVADR, RY >GET STARTING ADDR OF 
RS, (RY) + >STORE AT THIS ADOR 
#2,R5 


ADRCNT ;HOW MANY TIMES + 2 ? 
1$ 


SEQ 0057 


~ 
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DZDURB. M11 31-MAY-77 09: 48 TYPE ROUTINE SEQ 0058 
Seas ;SAVE PC OF TEST THAT FAILED AND RO-RS 
ak, 013542 O16667 OO0004 165356 . SAVOS5: MOV 4(SP), SAVPC 
2915 +SAVE RO-RS 
2916 
2917 013550 010567 165720 SVO5: MOV RS, SREGS 
2918 013554 010467 165712 MOV R4, SREGY 
2919 013560 010367 165704 MoV R3, SREGS 
2920 013564 010267 165675 MOV R2- SREGZ 
2921 013570 010167 165670 MOV Ri, SREG1 
2922 013574 010067 165662 MOV RO, $REGC 
2923 013600 o00002 RTI 
2924 
2925 *RESTORE RO-RS 
2926 
2927 013602 016700 165654 -RESOS: MOV SREGO. RO 
2928 013606 016701 165652 MOV SREG1,R1 
2929 013612 016702 165650 MOV SREG2,R2 
2930 013616 016703 165646 MoV SREG3,.R3 
2931 013622 C16704% 165644 MOV SREGY, RY 
2932 013626 016705 165642 MOV SREGS, RS 
eS 013632 000002 RTI 
4 
2935 CONVERT OCTAL NUMBER TO ASCI! AND OUTPUT TO TELEPRINTER 
2936 
2937 013634 104401 _CONVR: TYPE 
2938 013636 015313 MCRLF ;CR LF 
2939 013640 017601 000000 MOV a(SP),R1 >PICK UP DATA POINTER 
2940 013644 062716 000002 ADD #2,(SP) ;SET UP SP FOR RTI 
2941 013650 012167 000130 MOV (R1)+, WROCNT >PICK UP # OF WORDS FROM TABLE 
2942 013654 112167 000126 1$ MOVB (R1)+, CHRCNT ;PiCK UP & OF CHARS FROM TABLE 
2943 013660 112167 000123 MOVB (R1)+, SPACNT ;PICK UP # OF SPACES FROM TABLE 
2944 013664 013167 000120 MOV a(R1)+,BINWRD ;PICK UP ADDRESS OF MSG 
2945 >FROM TABLE 
2946 013670 016704 000114 2$: MOV BINWRD, RY + SAVE 
2947 013674 116705 000106 MOVB CHRCNT, RS + SAVE 
2948 013700 012700 016064 MoV #TEMP.RO STARTING ADDRESS OF TEMP BLOCK 
2949 013704 010403 3$: MoV R4,R3 > SAVE 
2950 013706 042703 177770 BIC #177770,R3 /CLR OUT UPPER BITS .. SAVE CHAR 
2951 013712 062703 000260 ADD #260.R3 ;CONVERT TO ASCI! 


2956 013726 005305 DEC RS +DEC CHAR COUNT 

2957 013730 001365 BNE 33 ;D0 IT AGAIN ? 

2958 013732 012703 016126 MOV #MDATA. RZ ; STARTING ADDRESS OF MOATA BLOCK 
2959 013736 114023 4S. MOVB ~(RO), (R3)+ ;REVERSE THE ORDER OF NUMBERS 
2960 013740 105367 000042 DECB CHRCNT ;DEC CHAR COUNT 

2961 013744 001374 BNE 4$ ;00 IT AGAIN ? 

2962 013746 105767 000035 TSTB SPACNT ;HOW MANY SPACES ? 

2963 013752 001405 BEQ 6$ > TYPE #@ IF BR =0 

2964 013754 112723 000240 5S. MOVB #240. (R3)+ »"SPACE” IN ASCII 

2965 013760 105367 000023 DECB SPACNT ;DEC # OF SPACE COUNT 


2966 013764 001373 BNE 5$ DO 1T AGAIN ? 


| 
2952 013716 110320 MOVB R3,(RO)+ STORE AWAY 
2953 013720 006294 -.ASR RY + SHIFT FOR NEXT & 
2954 013722 006204 ASR RY /O1TTO 
2955 013724 006204 ASR R4 DITTO 





















































013766 
013770 
013772 
013774 
014000 
014002 
014004 
014006 


014010 


014012 
014016 
014024 
014026 
014030 
014032 
014040 
014042 
014046 
014052 
014054 
014056 


014060 
014060 
014064 
014066 
014074 
014102 
014104 
014110 
014114 
014120 
014126 
014134 
014142 
014144 
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105013 
104401 
016126 
005367 
001325 
000002 
000000 
000000 
014007 
000000 


017605 
122767 
001002 
105015 
C00406 
122767 
001005 
112715 
062716 
009002 
104407 
000755 


105267 
001775 


004767 





000004 


000000 
000116 


000131 


177777 
000002 


165317 


165310 
002000 


001516 
165276 
165276 
000002 
165264 
020000 


000072 
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001776 


001762 


165346 
165336 


165270 
165260 
165276 


TYPE ROUTINE 
6S: CLRB 


Peanteae 0 
CHRCNT: 0 
SPACNT= CHRCNT+1 
BINWRD: 0 


(R3) ; INSERT "O" FOR TTY OUTPUT ROUTINE 


; THIS MESSAGE 

WROCNT ;HOW MANY #'S ? 

1$ +00 THIS *ROUTINE AGAIN IF NOT EQUAL TO 0 
RETURN TO PROGRAM 


;COMPARE THE FIRST CHARACTER IN THE © piety INPUT 
;BUFFER TO THE CHARACTERS "N" AND ' 
AF THE CHARACTER |S "N" CLEAR THE FLAG 

+ iF THE CHARACTER IS "“Y" SET THE FLAG 


‘. ie 


| 
35: INSTER 
R 


a(SP),R5 

#'N. INBUF ris te “SA 7 
1$ 

(R5) ; 000 

23 

#'Y, \NBUF tts iv 7?" * 


3$ 
#-1, (RS) tare 


SBTTL ERROR HANDLER ROUTINE 


pe $2 2232995999003593 0399335959 095203 9322222329229 22229322 922328 3 
>*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SAVIT ON ERROR 

>THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 


> *SW15=1 

> *SW13=1 

> xSW10=1 

, *SWO9=1 

> *CALL 

| ERROR 

SERROR: 

73: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 

1$ INC 
MOV 
Sub 
MOVB 
BIT 
BNE 
JSR 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N >; ERROR=EMT AND N=ERROR ITEM NUMBER 

SERFLG >;SET THE ERROR FLAG 

7$ ;;DON'T LET THE FLAG GO TO ZERO 
STSTNM, ADISPLAY ;; DISPLAY TEST NUMBER AND ERROR FLAG 
#31710, dSWR ;>;BELL ON ERROR? 

1$ >2NO - SKIP 

, SBELL >-RING BELL 

SERTTL ;;COUNT THE NUMBER OF ERRORS 

(SP), SERRPC ;,GET ADDRESS OF ERROF INSTRUCTION 
#2, SERRPC 

QSERRPC,SITEMB <=; STRIP AND SAVE THE ERROR 'TEM CODE 
#81T13, dSHR >,SKIP TYPEOQUT IF SET 

20% >; SKIP TYPEQUTS 

PC, SAVIT ;;G0 TO USER ERROR ROUTINE 


SEQ 0059 


| 
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3023 014150 104401 001523 TYPE » SCRLF 

3024 014154 208: 

3025 014154 122767 QOO00001 165364 CMPB #APTENV, SENV +;+RUNNING IN APT MODE 

3026 014162 001007 BNE 2$ ++NO, SKIP APT ERROR REPORT 

3027 014164 116767 165224 Q00004 MOVB SITEMB, 21% ++SET 1 TEM NUMBER AS ERROR NUMBER 
3028 014172 004767 000016' JSR PC, SATY4 >+REPORT FATAL ERROR TO APT 

3029 014176 000 215: .6YTE Q 

3030 014177 000 .BYTE OQ 

3031 014200 000777 22S: BR 22% ++APT ERROR LOOP 

3032 014202 005777 165232 23: TST OSWR ;;+HALT ON ERROR 

3033 014206 100001 BPL 3$ +7 SKIP IF CONT I NUE 

3034 014210 000000 HALT ;;HALT ON ERROR 

3035 014212 032777 001000 165220 3%: BiT #B1TO9, ASWR ;;LOOP ON ERROR SWITCH SET? 

3036 014220 001402 BEQ 4§ +7BR IF NO 

3037 014222 016716 165162 MOV SLPERR, (SP) ++ FUDGE RETURN FOR LOOPING 

3038 014226 005767 165262 4S: TST SESCAPE ++ CHECK FOR AN ESCAPE ADDRESS 
3039 014232 001402 BEQ 55 7>BR IF NONE 

3040 014234 016716 165254 MoV SESCAPE, (SP) ;; FUDGE RETURN ADDRESS FOR ESCAPE 
3041 014240 5S: 

3042 014240 000002 RT! ; RETURN 

3043 014242 C1006? 164662 SAVIT- MOV RO. HLOO 

3044 014246 010167 164660 MOV R1,HLD1 

3045 014252 010267 164656 MOV R2,HLOZ2 

3046 014256 010367 164654 MoV R3,HLOZ 

3047 014262 010467 164652 MOV R4, HLDY 

3048 014266 010567 164650 MoV RS, HLDS 

oe 014272 016767 165104 164644 MoV STSTNM, HLD6 

— SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

3053 5 AEMKKEAAA AAA AAA AEA A AEA AAA KEES 
3054 >KTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (S$ITEMB) TO DETERMINE WHICH 
3055 ;*ERROR 1S TO BE REPORTED. IT THEN OBTAINS. FROM THE “ERROR TABLE” (SERRTB). 
or ;¥AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 
305 

3058 014300 SERRTYP: 

3059 014300 104401 001523 TYPE » OCRLF >; "CARRIAGE RETURN" & “LINE FEED" 
3060 014304 010046 MoV RO, - (SP) 7; SAVE RO 

3061 014306 005000 CLR RO *>;PICKUP THE ITEM INDEX 

3062 014310 153700 001414 BISB aeSITEMB.RO 

3063 01431% 001004 BNE 1$ 7; 1F tTEM NUMBER 1S ZERO. JUST 
3064 +; TYPE THE PC OF THE ERROR 

3065 014316 016746 165074 MOV SERRPC, -(SP) +; SAVE SERRPC FOR TYPEOUT 

3066 +; ERROR ADDRESS 

3067 014322 104402 TYPOC ++ G0 yt a tee ASC'ICALL DIGITS) 
3068 014324 000426 BR 6$ 44} OUT 

3069 014326 005300 1$: DEC RO ;ADJUST THE INDEX SO THAT IT WILL 
3070 014330 006300 ASL RO ia WORK FOR THE ERROR TABLE 
3071 014332 006300 ASL RO 

3072 014334 006300 ASL RO 

3073 0614336 062700 001652 ADD #SERRTB, RO >;FORM TABLE POINTER 

3074 014342 012067 000004 MoV (RO)+, 2% ;;PICKUP “ERROR MESSAGE” POINTER 
3075 014346 001404 BEQ 3$ +;SKIP TYPEQUT IF NO POINTER 

3076 014350 104401 TYPE +, TYPE THE “ERROR MESSAGE” 

3077 014352 000000 28: WORD 0 >; "ERROR MESSAGE” POINTER GOES HERE 


3078 014354 104401 001523 TYPE - S9CRLF i, "CARRIAGE RETURN” & “LINE FEED” 
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014360 
014364 
014366 
014370 
014372 
014376 
014400 
014402 
014404 
014410 
014412 
014412 
014414 
014416 
014420 
014422 
014426 
014430 


014434 
014440 
014446 
014452 
014456 
014460 
014466 
014474 
014502 
014504 
014506 
014510 
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012067 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 


013046 
104402 
005710 
001770 
104401 
000771 
020040 
014434 


017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 


09: 4 
000004 


001523 


001523 


014430 
000 


000000 
000001 
000207 
000002 


000001 


000006 
000005 


000145 


000211 


000171 
000165 
000154 
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J 5 


ERROR MESSAGE TYPEOUT ROUTINE 


34: MOV (RO)+,4$ 
BEQ 53 
TYPE 
4S: . WORD 
TYPE , SCRLF 
53: MOV (RO), RO 
BNE 7$ 
65: MOV (SP)+,R0 
TYPE , SCRLF 
RTS PC 
7S: 
MOV a(RO)+, -(SP) 
TYPOC 
TST (RO) 
BEQ 6S 
TYPE ,8$ 
BR 73 
8s: .ASCIZ 7 7 


. EVEN 
.SBTTL BINARY TO OCTAL (ASCII) 


;4PICKUP “DATA HEADER" POINTER 
;;SKIP TYPEOUT IF O 

+; TYPE THE “DATA HEADER” 

;;"DATA HEADER" POINTER GOES HERE 
3; "CARRIAGE RETURN” & “LINE FEED” 
;;PICKUP “DATA TABLE” POINTER 
;;GO TYPE THE DATA 

>;RESTORE RO 

3; "CARRIAGE RETURN" & “LINE FEED" 
++RETURN 


+; SAVE d(RO)+ FOR TYPEOUT 

++GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
++ 1S THERE ANOTHER NUMBER? 

+;BR IF NO 

hp TWO(2) SPACES 


LOO 
++ TWO(2) SPACES 
AND TYPE 


pe 2299923999999 % 003999999999 99 52299020058 2292200992299 90200 08 2 | 
;¥THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


>*KOCTAL (ASCII) NUMBER AND TYPE 


1T 
; ASTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> ¥CALL: 

x MoV 
;x TYPO 
iz BYTE 
;x BYTE 
;x 

;x 

8 


NUM, - (SP) 


;KSTYPOS OR STYPOC 


NUM, - (SP) 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
,;M21 OR O 
;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


XSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


+;NUMBER TO BE TYPED 
+;CALL FOR TYPEOUT 


: $STYPOC---ENTER HERE FOR TYPEOQUT OF A 16 BIT NUMBER 


; XCALL: 

Pe MoV 

_ TYPON 

> XCALL: 

ot MoV 

;k TYPOC 

STYPOS: MOV 
MOovB 
MOVB 
ADD 
BR 


STYPOC: se 
MoV 
STYPON: ana 


NUM, -(SP) * 


a(SP),.- (SP) 
1¢SP),S0F ILL 


(3P)+, SOMODE +1 


#2, (SP) 
STYPON 

#1, S0F ILL 
#6, SOMODE +1 
#5, SOCNT 
R3, - (SP) 
RY, - (SP) 
RS, -(SP) 
SOMODE +1,R4 


+;NUMBER TO BE TYPED 
+;CALL FOR TYPEQUT 


;;PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
>;NUMBER OF DIGITS TO TYPE 
;,ADJUST RETURN ADDRESS 


;,SET THE ZERO FILL SWITCH 

;;SET FOR SIX(6) DIGITS 

+;SET THE ITERATION COUNT 

>; SAVE RZ 

>; SAVE RY 

;; SAVE RS 

;;GET THE NUMBER OF DIGITS TO TYPE 


‘ 


DZDUR-B MACY11 30(1046) 


DZDUKB. 31-NAY-77 


M11 


014514 
014516 
014522 
014526 
014532 
014536 
014540 
014542 
014544 
014546 
014550 
014552 
014554 
014556 
014562 
014564 
014570 
014572 
014574 
014576 
014600 
014604 
014610 
014614 
014620 
014624 
014626 
014630 
014632 
014634 
014636 
014640 
014642 
014650 
014652 
014654 
014655 
014656 
014657 
014660 


014662 
014662 


014714 
014716 


005404 
062704 
110467 
116704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 


000000 


010046 
010146 
010246 
010346 
010446 
010546 
016746 
010667 
012767 
000000 
000777 


09: 


000006 
000132 
000125 
000012 


000076 
177770 


000060 
000040 
000040 
014654 
000032 


000002 


163122 
164210 
014720 


000004 


163110 
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48 BINARY 10. OCTAL (ASCII) AND TYPE 


23: 


35: 


4S: 
55: 


7%: 


6S: 


8S: 
SOCNT: 


SOFILL: . 
SOMODE: .WORD 0 
ENTER HERE ON POWER FAILURE 


SPWRON: 
_PFAIL: 


K 5 


RY 

#6,R4 

R4, SOMODE 
SOF ILL, R4 
12(SP),R5 


R3 

SOMODE 

7$ 
#177770,R3 


(SP)+,R5 
(SP )+,R4 
(SP)+,R3 
2(SP),4CSP) 
(SP )+, (SP) 


0 
0 
0 
0 


RO, - (SP) 
R1,-(SP) 
R2, - (SP) 
R3. - (SP) 
R4,-(SP) 
RS, - (SP) 
24, -(SP) 
SP. SAVSP 
@RESTART, 24 


++ SUBTRACT IT FOR MAX. ALLOWED 


+;SAVE IT FOR USE 

++GET THE ZERO FILL SWITCH 
++PICKUP THE INPUT NUMBER 
++CLEAR THE OUTPUT WORD 
++ROTATE MSB INTO "C" 


++GO DO MSB 


;;FORM THIS DIGIT 


++GET LSB OF THIS DIGIT 
++ TYPE THIS DIGIT? 


+;BR IF NO 


+;GET RID OF JUNK 
RO 


+; TEST FO 


++ SUPPRESS THIS 0? 


;;BR IF YES 


+;DON'T SUPPRESS ANYMORE O'S 


+;MAKE THIS DIGIT ASCII 


>;MAKE ASCII 


IF NOT ALREADY 


++SAVE FOR TYPING 
++GO TYPE THIS DIGIT 


;; COUNT BY 1 


+>BR IF MORE TO DO 


;;BR IF DONE 
;; INSURE LAST DIGIT ISN'T A BLANK 


+-GO DO THE LAST DIGIT 


>;RESTORE RS 
;;RESTORE RY 
;;RESTORE R3 
;:SET THE STACK FOR RETURNING 


+; RETURN 


++STORAGE FOR ASCII DIGIT 


+; TERMINATOR FOR TYPE ROUTINE 


+;OCTAL DIGIT COUNTER 
+;ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 


> SAVE RO-RS ON PROCESSOR STACK 


SAVE STACK POINTER 


;SET UP FOR POWER UP TRAP 
*HALT ON POWER DOWN NORMAL 
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014724 


015256 
015264 
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016706 
012605 
012604 
012603 
012602 
012601 
012600 
012767 
106427 
012706 
005067 
005267 
001375 
104413 
015014 


052123 


09 


164172 


014662 
000340 
001100 
001102 
001076 


164377 
164406 
164070 

002 


042012 
04 2U40 


042040 


21-SEP-77 09:0 
: 48 


163056 


053125 
042132 
052040 
020102 


041505 


042104 
044526 


043505 


043126 
052105 
040514 
053105 


L 5 
8 PAGE 65 
BINARY TO OCTAL (ASCII) AND TYPE 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
RESTAR: oe SAVSP, SP ;RESTORE STACK POINTER 


(SP)+,R5 +RESTORE RO-RS 
MoV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
MOV #. PFAIL, 24 ;SET UP FOR FOWER FAILURE 
MTPS #340 
MOV #STACK, SP 
CLR TEMP 
INC TEMP 
BNE a) 
CONVRT 
PF TAB 
TYPE 
MPFAIL 


CLR SERFLG 

CLR SERRPC 

JMP ORE TURN 
PFTAB: 1 

.BYTE 6.2 


MTITLE: .ASCIZ <15><12><12>/DUV11 DZ0UR-B TAPE B /<15><12> 


MVECTO: .ASCIZ <15><12>7VEC ADD-/ 
MREGAD: .ASCIZ <15><12>71ST DEV: REC CSP ADD-/ 


MMULT: .ASCIZ ¢<15><12>/MULT DEV ? (Y OR N)-/ 


MLASTO: .ASCIZ ¢15><12>/LAST DEV: REC CSR ADOR-/ 


DEVICE: .ASCIZ /=DEVICE 7 
MCOW: -ASCIZ <15><12>/7SELECT TO RUN @ACTREG/ 


MRANGE: .ASCIZ <15><12>/OVFLO: RETYPE LAST DEV RXCSR ADDS-/ 


SEQ 0063 


DZDUR-B 
DZDURB. 


MACY11 
mil 


015272 
015300 
015306 
015307 
015313 


3011046) 


31-MAY-77 


051040 
040440 


042516 
047440 


09 


041530 
042104 


037440 


000012 
044501 


020116 


21-SEP-77 09 
: 48 


051123 
026523 


000 
026114 


042520 


000 
051505 
000055 
045503 
052040 
024040 
047040 


047440 
041516 
051522 
041505 
020050 
031040 


020123 
046530 
044527 
032505 
047111 
047440 
000055 
051440 
041505 
041524 
026465 
020077 
020122 


047440 


024077 


: 08 


MQM: 
MCRLF: 
MPFAIL: 


MEPASS: 
MR: 
MTSTPC: 
MLOCK: 
MSYNC: 
MWIRE6 


MWIRES: 


MWIREY: 


MEXT J: 


PAGE 66 
BINARY TO OCTAL 


.ASCIZ 
. ASCIZ 
.ASCIZ 


. ASCIZ 


-ASCIZ 
_ASCIZ 


- ASCIZ 
ASCIZ 
. ASCIZ 


- ASCIZ 


.ASCIZ 


.ASCIZ 


Mm 5 
(ASCII) AND TYPE SEQ 0064 


, Ww 
<15><12> 
7PFAIL, RESTART AT TEST IN PROGRESS/ 


€15><12>7END OF PASS TAPE B/ 


C15><12>7R7 
€15><12>/TEST PC-7 


<15><12>7LOCK ON TEST? (CY OR N)-7 
€15><12>/#8 OF SYNC CHARS SELECTED ( 1 OR 2)-/ 
<15>412>71S SEC XMIT SWITCH E55-2 IN? CY OR N)-7 


€15><12>71S SEC REC SWITCH ES5-3 IN? (Y OR N)-/7 


<15><12>71S OPT CLR ENABLE SWITCH ES55-1 IN? (Y OR ND-7 


€15>412><12>7H315 CONNECTOR ON ?7°Y OR N)-/ 








N 5 
DZOUR-B MACY11 30(104%6) 21-SEP-77 09:08 PAGE 67 
DZDURB. M11 31-MAY-77 09: 48 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0065 


3303 015756 020131 051117 047040 
3304 015764 026451 000 

3305 015767 015 — O43536 MCNTG: .ASCIZ <15><12>7 G / 
3307 015777 O4O 053523 036522 MMSWR: .ASCIZ / SWR= / 


3309 016010 020040 047040 053505 MMNEW: .ASCIZ / NEW= / 
3310 016016 020075 000040 


3311 . EVEN 
3312 
‘Sate +BUFFERS FOR INPUT-OUTPUT 
3315 016022 000000 INBUF: 0 
3316 016064 _ =. +40 
3317 016064 000000 TEMP: 0 
3318 016126 . =. +40 
3319 016126 000000 MDATA: 0 
3320 016170 . =, +40 
aH .SBTTL SCOPE HANDLER ROUTINE ; 
3323 +s RERAAAAA AAR ARA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AES t 
3324 +XTHIS ROUTINE CONTROLS THE LOOPING OF SUGTESTS. IT WILL INCREMENT | 
3325 ;*¥AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7: 0>) 
3326 **AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15: 08> 
3327 ‘ ; THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3328 **SW14=1 LOOP ON TEST 
3329 + *SW11=1 INHIBIT ITERATIONS 
3330 ; *SWO9=1 LOOP ON ERROR 
3331 ; *SWO8=1 LOOP ON TEST IN SWR<?7: 0> 
3332 **CALL 
3333 re SCOPE >, SCOPE=10T 
3334 
3335 016170 SSCOPE: 
3336 
a4 +SCOPE LOOP AND INTERATION HANDLER 
3 
3339 016170 . SCOPE: 
3340 016170 004767 174376 JSR PC, CKSWR 
3341 016174 005067 163216 CLR SERRPC *CLEAR LAST ERROR PC 
3342 016200 022716 003376 CMP #TST1+2, (SP) 1S SCOPE AT BEGINING OF TEST 1? 
ia 016204 001422 BEG SXTSTR + YES NO LOOP 

44 
3345 016206 032777 O4O000 163224 TTST: BIT #B1T14, dSUR + THIS CODE IS FOR TESTING FOR BIT 14 
3346 016214 001412 BEQ 1$ +ON LS! WHICH SYSMAC CANNOT HANDLE , 
3347 016216 016767 163160 163162 MOV STSTNM, SLPADR i: 
3348 016224 000406 BR 1$ v 
3349 016226 105777 163212 TSTB asTKS ~ ee DONE ? i ot 
3350 016232 100123 BPL SOVER BR IF NO : 
3351 016234 017766 163206 177776 MoV OSTKB, -2(SP) CLEAR DONE BIT 
3352 016242 032777 O4O0000 163170 15: BIT #B1T14, OSHR ++LOOP ON PRESENT TEST?. . * 
3353 016250 001114 BNE SOVER +7YES IF SWi4=1 yee 
3354 ;RRRRASTART OF CODE FOR THE XOR TESTERSHSRA 
3355 016252 000416 SXTSTR: BR 6$ +, 1F RUNNING ON THE “XOR" TESTER CHANGE 
3356 ++ THIS INSTRUCTION TO A “NOP™ (NOP=240) 
3357 016254 013746 000004 MOV Q#ERRVEC.-(SP) <¢; SAVE THE CONTENTS OF THE ERROR VECTOR 


3358 016260 012737 916300 000004 MoV #59. QRERRVEC ++SET FOR TIMEOUT 


























































016266 
016272 
016276 
016300 
016302 
016306 
016310 
016310 
016316 
016320 
016326 
016330 
016334 
016336 
016344 
016346 
016354 
016356 
016364 
016366 
016372 
016376 
016400 
016406 
016410 
016414 
016416 
016422 
016430 
016432 
016440 
016446 
016452 
016460 
016464 
016470 
016474 
016502 
016510 
016514 
016516 
016520 
016522 


016524 
016526 
016532 
016534 
016536 





DZDUR-B MACY11 30(104%6) 


DZDURB. M11 31-MAY-77 


005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127767 
001465 
105767 
001421 
126767 
101015 
032777 
001404 
016767 
000446 
105067 
005067 
000415 
032777 
001011 
005767 
001406 
005267 
026767 
002024 
012767 
016767 
105267 
116767 
011667 
011667 
005067 
112767 
016777 
016716 
000002 
001407 
N004 32 
000095 


010046 
016600 
005740 
111900 
006300 





177060 
000004 


000004 


000400 
163114 
163047 
163053 
001000 
163026 


163011 
163114 


004000 
163120 


162762 
163064 


000001 
000056 
162730 
162724 
162722 
162720 
163020 
000001 
162674 
162672 


000002 


21-SEP-77 O09 
09: 48 


163122 
163054 


163037 
163064 
163022 


162032 


162754 


162744 
163044 


163052 


162713 
162732 


O08 PAGE 68 
SCOPE HANDLER ROUTINE 


5S: CMP 


28: TSTB 


75: MOV 
4S: CLRB 


35: BIT 


15: MOV 
SSVLAD: 


SOVER: 


4S: RTI 
BRU: 
BRX: 
SMXCNT: 


0#177060 
(SP) +, O#ERRVEC 
S$SVLAD 

(SP)+, (SP)+ 
(SP)+, OHERRVEC 


++ TIME OUT ON XOR? 
++RESTORE THE ERROR VECTOR 
++GO TO THE NEXT TEST 
++CLEAR THE STACK AFTER A TIME OUT 
+; RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


7$ 
CODE FOR THE XOR TESTERAHARE 


Ma » OSUR 
OSWR, STSTNM 
SOVER 

SERFLG 

3$ 

eases taaptataes 
#B1TO9, dSWR 
4$ 

SLPERR, SLPADR 
SOVER 


SERFLG 
STIMES 


1$ 

#B1T11, dSWR 
1$ 

SPASS 

1% 


SICNT 

STIMES, SICNT 
SOVER 

#1, S1CNT 
SMXCNT, STIMES 
STSTNM 
STSTNM, STESTN 
(SP), SLPADR 
(SP), SLPERR 
SESCAPE 

#1, SERMAX 


;;LOOP ON SPEC. TEST? 
77BR IF NO 

+;0N THE RIGHT TEST? 
;7;BR IF YES 

;;HAS AN ERROR OCCURRED? 
+-BR IF NO 

;;MAX. ERRORS FOR THIS TEST OCCURRED? 
77BR IF NO 

+;LOOP ON ERROR? 

;;BR IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 


++ ZERO THE ERROR FLAG 
;; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;;ESCAPE TO THE NEXT TEST 
+; INHIBIT ITERATIONS? 
;;BR IF YES 
ia lF FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
>: INCREMENT ITERATION COUNT 
;; CHECK THE NUMBER OF ITERATIONS MADE 
;;BR IF MORE ITERATION REQUIRED 
;;REINITIALIZE THE |! TERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
;;COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 
+; SAVE SCOPE LOOP ADDRESS 
>; SAVE ERROR LOOP ADDRESS 
;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
>, ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


SWR<7: O> 


STSTNM, DISPLAY >; DISPLAY TEST NUMBER 


SLPADR, (SP) 


5 
.SBTTL TRAP DECODER 


55 MAXKKAAAAAAA AAA AAA AAA AA AAA AAA AA AAA AAA AAA AAA AAA AAA AEE 
;¥THIS ROUTINE Wick PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;*¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
+*GO TO THAT ROUTINE. 


STRAP: 


RO, -(SP) 
2(SP),RO 
-(RO) 
(RO),RO 
RO 


++FUDGE RETURN ADDRESS 


+;MAX. NUMBER OF ITERATIONS 


+; SAVE RO 

;;GET TRAP ADDRESS 
;,BACKUP BY 2 

;;GET RIGHT BYTE OF TRAP 
;;POSITION FOR INDEXING 





DZDUR-B MACY11 30(1046) 
31-MAY-77 O9:4 


DZDURB. M11 


3415 016540 
3416 016544 


016546 
016550 
016556 


016560 
016562 
016564 
016566 
016570 


016572 
016574 
016576 
016600 
016602 
016604 
016606 
016610 


016612 
016616 
016622 
016626 
016632 
016636 
016644 
016652 
016660 
016662 
016664 


016666 
016674 


016000 
000200 


011646 
016666 
000002 


016546 
012742 
014460 
014434 
014474 


012720 
013224 
013332 
013342 
013542 
013602 
013634 
014012 


006367 
006367 
006367 
006367 
006367 
016767 
162767 
042767 
000207 
000240 
000200 


016767 
005267 
016767 
005267 
016767 
016767 


016560 


000004 


000044 
000040 
000034 
000030 
000024 
000020 
000001 
000037 


000126 
000120 
000114 
000106 
000102 
000074 


000002 


000020 
000012 
000004 


163016 
163006 


162776 
162774 


ai- + sa -77 09:08 PAGE 69 


TRAP DECODER 


MOV 
RTS 


STRPAD(RO), RO 
RO 


+; INDEX TO TABLE 
++GO TO ROUTINE 


+; THIS IS USE TO HANDLE THE "“GETPRI" MACRO 


STRAP2: MOV 
MOV 


RTI 
. SBTTL 


4C(SP),2¢SP) 


TRAP TABLE 


SEQ 0067 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 


++RESTORE THE PSW 


;XTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE “TRAP” 


ROUT INE 


STRPAD: . 


STYPOS 
STYPON 


. SCOP 1 
. INSTR 


. INSTER 


. PARAM 
. SAVOS 
. RESOS 


INSTRUCTION. 


STRAP2Z 

>; CALL=TYPE 
;;CALL=TYPOC 
>; CALL=TYPOS 
;;CALL=TYPON 


>; CALL=SCOP1 
+; CALL=INSTR 
>; CALL=INSTER 
;;CALL=PARANM 
>; CALL=SAVOS 
>; CALL=RESOS 


. CONVRT ; > CALL=CONVRT 

SETFLG ;; CALL=SETFLG 
ettsscesttststettttttttttttttttssttesttestetesseces et ees lees! 

;UTILITIES 
SSO OOOO OOO OOO OOOO OOOO OOO 


TRAP +1 (104401) 
TRAP+2( 104402) 
TRAP +3( 104403) 
TRAP +4 (104404 ) 


TRAP +5( 104405) 
TRAP +6( 104406) 
TRAP +7( 104407) 
TRAP +10(104410) 
TRAP +11(104411) 
TRAP +12(104412) 
TRAP +13(104413) 
TRAP +14( 104414) 


>; THIS UTILITY CALCULATES PRIORITY LEVEL 


DULEV: ASL 


DUPRT: 
LESS1: 


DUADOR: 


DUPRT 
DUPRT ; 
DUPRT ; 
DUPRT : 
DUPRT ; 
DUPRT,LESS1 
#1,LESS1 
#37,LESS1 
PC 


+LEVEL TO ALLOW 


ADDRESSES 
DUBASE, RXCSR 
DUBASE 
DUBASE. HRXCSR 
DUBASE 


DUBASE, RXOBUF 
DUBASE, PARCSR 


> SHIFT LEFT 


TTY TYPEQUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 


*MOVE THIS TO LESS1 


CREATE LESS1 
*CLEAR TNZVC 


INTERRUPTS 


+ XXXO 


> XXX1 


;XXX2 
;XXX2 


DZDUR-B MACY11 30(1046) 


DZDURB. M11 


016726 
016732 
616740 
016746 
016752 
016760 
016764 
016772 
016776 
017004 
017010 
017016 
017020 


017022 
017030 
017034 
017040 
017044 
017050 
017056 
017064 
017072 
017100 
017104 
017106 


017110 
017116 
017122 
017126 
017130 
017134 
017140 
017144 
017146 
017152 
017154 
017162 
017164 


017172 


017174 
017202 
017206 
017212 
017214 
017220 
617224 
017230 
017232 


31-MAY-77 


005267 
016767 
016767 
005267 
016767 
005267 
016767 
005267 
016767 
005267 
016767 
000207 
00c000 


042777 
005067 
006067 
006067 
006267 
042767 
056777 
042777 
052777 
005367 
001346 
000207 


016767 
005067 
012727 
000000 
006067 
005567 
005367 
001371 
006067 
103404 
052767 
000403 
042767 


000207 


016767 
005067 
012727 
000000 
006067 
005567 
005367 
001371 
006067 


21-SEP-77 09: * PAGE 70 


09: 48 TRAP TABLE 
000066 INC DUBASE 
000062 162760 MOV DUBASE,. HRXDBUF ;XXxX3 
000054 162756 MOV DUBASE,.HPARCSR ;XXX3 
000046 INC DUBASE 
000042 162746 MOV DUBASE. TXCSR + XXX4 
000034 INC DUBASE 
000030 162736 MOV DUBASE, HTXCSR > XXX5 
000022 INC OUBASE 
000016 162726 MOV DUBASE, TXDBUF + XXX6 
000019 INC DUBASE 
000004 162716 MoV DUBASE,.HTXDBUF ; XXX7 
RTS PC 
DUBASE: 0 
; THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
; INFORMATION CONTAINED IN STMP1 AND IT IS 
;SHIFTED IN BY THE CONTENTS OF SHIFT 
O4O000 162676 RPOKE: BIC #MTDATA, ATXCSR 
162446 CLR STMPZ 
162440 ROR STMP1 ; FORCE CARRY 
162436 ROR STMP2 ;PICK UP CARRY IN BIT 15 
162432 ASR STMPZ ;SHIFT INTO BIT 14 
100000 162424 BIC #B1T15,STMP2 -CLR BIT 15 
162420 162642 BIS STMP 2. dTXCSR ;POKE MAINT DATA 
020000 162634 BIC #CLK, ATXCSR >POKE CLK 
02C000 162626 BIS #CLK, ATXCSR ; 
162U16 DEC SHIFT 
BNE RPOKE 
RTS PC 
>; THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
162364 162364 ODDS: MoV STMP1,STMPZ ;SAVE TEMP1 
162362 CLR STMP3 
000010 MOV #8.,(PC)+ 
4S: 0 
162346 18: ROR STMP2 
162344 ADC STMP3 
177762 DEC Ys 
BNE 1$ 
162332 ROR STMP3 
BCS 2$ 
000400 162316 BIS os +SET ODD PARITY 
BR 
000400 162306 2%: BIC #B1T8,STMP1 >CLR EVEN PARITY 
;STMP1 NOW HAS ODD PARITY CHARACTER 
34: RTS PC 
‘ > THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
162300 162300 EVENS: MOV STMP1,STMP2Z > SAVE TEMP 1 
162276 CLR STMP3 
000010 MOV #8.,(PC)+ 
4S. 0 
162262 1$: ROR STMP2 
162260 ADC STMPS 
177762 DEC 4g 
BNE 1$ 
162246 ROR STMP3 


SEQ 0068 


E 6 7 ari 
DZDUR-B MACY11_30(1046) 21-SEP-77 09:08 PAGE 71 2 
DZDURB. M11 31-MAY-77 09: 48 TRAP TABLE SEQ 006 


353? 000001 . END 


3527 017236 103004 BCC 23 | 
3528 017240 052767 QOO400 162232 BIS #8178, STMP1 ;SET EVEN PARITY 

3529 017246 000403 BR 3$ 

3530 017250 042767 OOO4OO0 162222 23%: BIC #B1TS, STMP1 CLR ODD PARITY 

3531 ;S$TMP1 NOW HAS EVEN PARITY CHARACTER 

ats 017256 000207 33: RTS PC 

3534 017260 062716 000002 TRPREG: ADD #2, (SP) ;ALLOW IT TO “CRUNCH” INTO HLT BACK 

3535 > IN MAIN PART OF THE PROGRAM 

3536 017264 000002 RTI 


DZOUR-B MACY11 30(1046) 


DZDUKB. M11 


003200 
000000 
000000 
000000 
000000 
001166 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
013541 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
000000 
000000 
000000 
000000 
000000 
000000 
001154 


31-MAY-77 09: 48 


8 
1248% 
920 


915 
1230% 


F 6 


21-SEP-77 09:08 PAGE 73 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1262* 1263k 1270k 2648 2651 2661 


3025 


1267k 1268 1274% 1276% 2655% 26674 


2671 


SEQ ao 


OZDUR-B MACY11 30(104%6) 


DZDUKB. M11 

BASEIV 001162 
BBB 003026 
BINWRO 014010 
BITW = 002000 
BiTO = 000001 
BiTOO = 000001 
BiTO1 = 000002 
BITO2 = 000004 
BiTO3 = 000010 
BiTOY = 000020 
BiTOS = COOO40 
BiTO6 = 000100 
B!T07 = 000200 
BiTO8 = 000400 
B1TO9 = 001000 
BiT1 = 000002 
BiT10 = 002000 
BiT11 = 004000 
BiT12 = 010000 
BiT13 = 020000 
BiT14 = 040000 
BiTiS = 100000 
BiT2 = 000004 
BiT3 = 000010 
BiTY = 000020 
BITS = 000040 
BiTé = 000100 
BiT7 = 000200 
BITS = 000400 
BiT9 = 001000 
BPTVEC= 000014 
BREAK = 000001 
BRW 016516 
BRX 016520 
CARDET= 010000 
ccc 012476 
CHRCNT 014006 
CKSWR 012572 
CLK = 020000 
CNTLU 012646 
CONVRT= 104413 
COUNT 001124 
CR = 000015 
CRLF = 000200 
CTS = 020000 
DDISP = 177570 
DEVADR 013536 


DEVICE 


015201 


G 6 


21-SEP-77 09:08 PAGE 74 


31-MAY-77 O09: 48 


1240x 
a 


32368 


2656% 
29768 
808 


2668% 2673 2674% 


970 1001 

3374 

960 994 3013 
3381 

958 975 


967 1000 
966 999 
965 998 
964 997 
963 996 
202 962 978 
961 977 


1413 1468 1523 
2128 2180 2232 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2675 


993 
991 


995 


1578 
2284 


2676% 


3020 
3345 
3493 


3511 


1633 
2336 


2677 


3352 


3513 


1688 
2388 


1419 
1533 
1695 
1853 
1972 
2134 
2343 
2596 


2678% 


3528 


1743 
2440 


1420 
1578 
1697 
1859 
1973 
2135 
2388 
2602 


2679 


3530 


1798 
2492 


1422 
1584 
1698 
1860 
2018 
2180 
2394 
2603 


2680% 


1853 
2544 


1908 
2596 


wd 





DZDUR-B MACY11 30(1046) 


DZDURB. M11 

OF 1 002132 
DH1 002067 
DISPLA 001442 
DISPRE 000174 
DNA = 100000 
DNAINT= 000040 
psc =—.-s =-—«s«A100000 
DSINTE= 000040 
osR = 001000 
OSWR = 177570 
OTR = 000002 
0T1 002116 
OT4 002126 
DURADDR 016666 
DUBASE 017020 
DULEV 016612 
DUPRT 016662 
DURIS 001740 
DURIV 001736 
DUTIS 001744 
DUTIV 001742 
EIGHT = 006000 
ENTVEC= 000030 
EM1 001762 
EN2 002022 
EN3 002043 
EM4 001746 
ERRCNT 001114 
ERRVEC= 000004 
EVENS 017174 
EVEPAR= 001400 
EVPAR = 000400 
FivE = 000000 
FRMERR= 020000 
GNS = &EKKEE 
HDXEN = 600010 
HILIM 013534 
HLOO 001130 
HLD1 001132 
HLOZ 001134 
HLD3 001136 
HLD4 001140 
HLOS 001142 
HLD6 001144 
HOLD 001120 
HPARCS 001724 
HRXCSR 001714 
HRXDBU 001720 
HT = 000011 
HTXCSR 001730 
HTXDBU 001734 
INBUF 016022 
INIFLG 001172 
INSTER= 104407 
INSTR = 104406 


21-SEP-77 09:08 PAGE 


31-MAY-77 09: 48 CROSS R 


1034 
1032 
1163% 
1188 


1154 
1033 
34658 
2671% 
3477 
345 3% 
1239 


1911 
11407 


1153% 


1361 
3435 


29068 
304 3% 
3044s 


2827 


2836 
1201% 
2993 
1241 


1038 
1073% 
1188x 


10798 


3465 
3478% 
3454% 


1240 


1966 


1164% 


1416 


3436 


2866 


34418 
1252 


10848 
3012% 


3466% 
3479 


3455% 
2673% 


2021 


3357 


2131 
3439 


2984 


1277 


H 6 


75 
EFERENCE TABLE -- USER SYMBOLS 


3396% 


3467 3468% 3469 
3480x 3481 34838 


3456% 3457 34618 
2680 


2076 


3358% 33604 3363% 


2183 2235 2287 
3440 3441 3442 


2988 33158 


1293 1306 1310 


3470 


3443 


1314 


3471% 


3444 


1318 


3472 


3445 


1329 


3473 


S446 


2726 


SEQ 0072 


3474% 


34408 


-——___-__---ooo--_- :- re - O Oeen oaeecneee nr ow ee el 8 


bE 
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INSTR2 
\OTVEC= 
1\SYMOD= 


MLOCK 


MREGAD 
MRESE T= 


MSYNC 
MTDATA= 


MTITLE 
MTSTPC 


013340 
000020 
000000 


001153 
001156 
001164 
001160 
016664 
000012 
001102 
013466 
013540 
001110 
001174 
013532 
015767 
015213 
015313 
016126 
015362 
010000 
015727 
004000 


015147 
015426 
016010 
015777 
015120 
015316 
015307 
015407 
015243 
015070 
000400 


015461 
040000 


015022 
015413 
001152 
015055 
015650 
015600 
015527 
001106 
000000 


001000 
017110 
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2845 
1137% 


28544 


33198 


1358 
2073 


1245 


1361 
2076 


1361 1409 
1739 1746 
2076 

1274 1276 
1282 

3462% 

2909 

1413 1468 
2128 2180 
1355 1408 
1738 1740 
2070 2123 
2435 2437 
1413 1468 
2128 2180 
2646 

1416 1471 
2131 2183 


i 


1416 
1794 


2667 


1523 
2232 


1410 
1793 
2125 
2487 


1523 
2232 


1526 
2235 
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1464 
1801 


1578 
2284 


1463 
1795 
2175 
2489 


1578 
2284 


1581 
2287 


1471 
1849 


1633 
2336 


1465 
1848 
2177 
2539 


1633 
2336 


1636 
23239 


1519 
1856 


1688 
2388 


1691 
2391 


1526 
1904 


1743 
2440 


1746 
2443 


1574 
1911 


1798 
2492 


1573 
1905 
2279 
2593 


1798 
2492 


1801 
2495 


1581 
1959 


1853 
2544 


1575 
1958 
2281 


1853 
2544 


1856 
2547 


SEQ 0073 


1629 
1966 


1908 
2596 


1911 
2599 
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DZ20UKB. M11 


PARAM 


RTS s 
RUNA = 


002610 
001151 
012700 
012470 
003166 
040000 
104410 
013372 
001722 


001000 
010000 
013446 
013530 
001112 
015014 
177772 
000240 
012600 
005726 
022626 
006000 
OGO040 
030100 
000140 
030200 
000240 
000300 
000340 
177776 
177776 
010046 
005746 
024646 
000024 
012706 
004000 
012374 
014720 
012554 
000010 
104412 
001104 
040000 
000100 
001170 
017022 


000004 
aaaaee U 
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12028 


2716 
12868 
1254 
1361% 
1739% 
2076% 
24 36% 
2872 


2691% 


139 


2720 


279 


1409% 
1746% 
2124% 
244 3x 


28818 
2692 


2883 


1339" 


1263 
1428 
1660 
1884 
2140 
2360 
2572 


512 


27328 


1331 
1416% 
1794% 
2131% 
2488% 
2891 


2693 


1341 


J 6 


2727 


1464% 
1801% 
2176x 
2495x 


2893 
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34428 


1471% 
1849x 
2183% 
2540% 


2895 


1273% 
1483 
1715 
1939 
2192 
2412 
2624 


1519% 
1856x 
2228% 
2547% 


2658% 
1495 
1719 
1978 
2204 
2416 
34888 


1526% 
1904% 
2235% 
2592% 


2661 
1499 
1758 
1990 
2208 
2452 
3498 


1574% 
1911x 
2280% 
2599% 


1581x% 
1959% 
2287% 
3470% 


1550 
1774 
2033 
2256 
2468 


1629x 
1966% 
2332% 


SEQ 0074 | 


1636% 
2014% 
2339% 


, 


K 6 
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RUNB = 000000 1 51 139 512 

RUNC = ¥XKKKK U 21 55 142 517 

RUND = XXKKEK U 21 55 142 517 

RUNE = ¥XKXKK U 21 55 142 517 

RUNF = XXKKKK U 21 55 142 517 

RUNIT 012300 2649 2655% 2662 

RXCSR 001712 10418 1362k 1374 1417k = =61429 1472% 1484 1527x 1539 1582x 1594 1637% 


1692% 1704 1747k = §=1759 1802% 1814 1857% 1869 1912k 1924 1967% 1979 


RXDBUF 001716 1043% 1369 1377 1392 1424 1432 1447 1479 1487 1502 1534 1542 


RXDONE= 000200 7708 963% 

RXERR = 100000 779% 972% 

SAVIT 014242 3022 304 38 

SAVPC =©.001126 7108 8 2913% 

SAVSP 001116 7038 3186% 3193 

SAVOS = 104411 344 38 

SCOP1 = 104405 34398 

SEND = 000020 806% 9998 

SEREC 001150 7228 =61313 

SETFLG= 104414 1243 1308 1312 1316 1320 34468 

SEVEN = 004000 7928 9858 1691 1746 1801 1856 2547 2599 
SEXMIT 001147 7218 1309 

SHIFT 001122 708% 1371k %1383k 12878 1426k% 1438% 1442K 1481k 1493K 1497k 1536k 1548% 


1591% 1603% 1607% 646k 1658k 1662k 1701% 1713% 1717k% 1756% 1768% 1772% 
1823% 1827k 1866% 1878% 1882k 1921k 1933% 1937k 1976k 1988% 1992%  2031% 
2047x 2086% 2098 2102k 2138% 2150% 2154*% 2190% 2202k 2206k 2242k 2254% 
2294% 2306k 2310% 2346k 2358% 2362k 2398k 2410% 2414*% 2450k 2462% 2466% 
2514% 2518% 2554% 2566% 2570x% 2606% 2618k 2622% 3497% 


SIX = 002000 7918 9848 1471 1526 1581 1636 2339 2391 2443 2495 

SPACNT= 014007 2943% 2962 2965% 29758 

SRD = 002000 7678 9608 

STACK = 001100 5728 1135 1171 1325 3202 

STO = 000010 7748 967% 

STFLG 001173 7438 = 8=—«:1174% 

STKLMT= 177774 5838 

STPSYN= 000400 7698 9628 

Sv0s 013550 29178 

SWR 001440 8418 1133 1154% 1156 1162k 1169% 1185 1187k 1192 1208 1327 2713 
3013 3020 3032 3035 3345 3352 3366 3368 3374 3381 

SWREG 000176 6848 1162 1187 1192 2713 2730 2737 

SWREGL 012710 2725 27358 

SWO = 000001 6368 

SwOO = 000001 6268 63e 1208 

SWO1 = 000002 6258 635 1327 

SWO2 = 000004 6248 634 

SWwO3 = 000010 6238 633 

SWO4 = 000020 6228 632 

SWOS = 000040 6218 631 

SW06 = 000100 620%. 630 

$WO7 = 000200 6198 629 





L 6 
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SWO8 = 000400 6188 628 

SWO9 = 001000 6178 627 2744 

SHi1 = =: 000002 635% 

SW10 = 002000 616% 

SW11 = 004000 615% 

SWi2 = 010000 6148 

SW1i3 > = 020000 613% 

SWi4 = 040000 6128 

SWi5 = 100000 6118 

SW2 = O00004 6348 

SW3 == 000010 633% 

SW4 = 000020 6328 

SWS = = 000040 6318 

SW6 = 000100 6308 

SW? = 000200 6298 

SWH8 = =_-000400 628% 

SW9 = 001000 6278 

SYNCNO 001146 7208 #81297k 1301% 

SYNEXT= 020000 7888 9818 2124 2131 2176 2183 2228 2235 2280 2287 2332 
2391 24 36 2443 2488 2495 2540 2547 2592 2599 

SYNINT= 030000 7878 9808 

SYNSCH= 000020 7738 9668 1362 1417 1472 1527 1582 1637 1692 1747 1802 
1967 2022 2077 2132 2184 2236 2288 2340 2392 2444 2496 

SYSTST= 014000 813% 10068 

TBITVE= 000014 6698 

TEMP 016064 2948 3203% 3204% 33178 

TKVEC = 000060 676% 

TPVEC = 000064 677% 

TRAPVE= OO0034 6758 1141% 11428 

TRPREG 017260 35348 

TRTVEC= 000014 6708 

TST1 003374 1332 1339 13528 2703 3342 

TST10 005426 17378 

TST11 005654 17928 

TST12 006102 18478 

TST13 006330 19028 

TST14 006556 19578 

TsT15 007004 2012% 

TST16 4 ©=©007232 20678 

TSTi? 007460 21228 

TST2 003622 14078 

TST20 007672 21748 

TST21 010104 22268 

TST22 010316 22788 

TST23 010530 23308 

TST24 010742 23828 

TST25 011154 24 348 

TST26 011366 24868 

TST27 011600 25388 

TST3 004050 14628 

TST30 §©=©012012 25908 

TST4 004276 15178 

TSTS 004524 15728 

TST6 004752 16278 

TST? 005200 16828 

TTST 016206 33458 


2339 


1857 
2548 


SEQ 0076 


2384 


1912 
2600 


M 6 
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TACSR 001726 10478 §81353% 1355e% 1358% 1364% 1365% 1367k 1368% 1408% 14108 1413% 1419% 1420% 
1422e 1423k% 1463% 1465e% 1468% 1474K 1475k% 1477% 1478% 1518% 1520% 1523% 1529% 
1530k 1532% 1533 1573k 1575% 1578% 1584% 1585% 1587% 1588% 1628% 1630% 1633% 
1639% 1640% 1642k 1643k 1683% 1685% 1688% 1694% 1695% 1697% 1698% 1738% 1740% 
1743% 4 =61749k% 4 «61750k) «=61752k = 1753k 0 =«1793k = 795k) =—:1798k = 1804" =891805% 1807% 1808% 1848s 
1850x 1853*% 1859x% 1860% 1862% 1863% 1903% 1905% 1908% 1914% 1915% 1917% 1918% 
1958x 1960% 1963 1969% 1970k 1972k 1973% 2013% 2015% 2018% 2024% 2025% 2027% 
2028 2068% 2070k 2073x% 2079% 2080% 2082% 2083% 2123% 2125% 2128% 2134% 2135% 
2175k 4 8=62177k «=©2180% 2186% 2187k 2227% 2229% 2232% 2238% 2239% 2279% 2281% 2284% 
2290% 2291% 2331K 2333% 2336% 2342% 2343% 2383% 2385% 2388% 2394% 2395% 2435% 
2437% 8 2440k 2446 2447K 2487k 2489x% 2492k 2498k 2499% 2539% 2541% 2544% 2550% 
2551% 2591% 2593% 2596k 2602% 2603% 3475e% 3488x 3494K 3495e 3496k 


TXDBUF 001732 10498  3479% 

TXDONE= 000200 8038 9968 

TXINTE= 000100 8048 997% 

TYPE = 104401 1200 1340 2642 2645 2650 2721 2723 2791 2834 2851 2937 2968 3015 
3023 3059 3076 3078 3081 3083 3Q87 3094 3158 3208 34338 

TYPOC = 104402 3067 3091 34 34% 

TYPON = 104404 34 36% 

TYPOS = 104403 34 35% 

USER = 000000 8108 10038 

void = 000001 7778 9708 

WROCNT 014004 2941% 2970K 29738 

ZERO 012306 26568 

SAPTHD 002136 1106 11128 

SASTAT= £xaaa% U E35 

SATYC OO00024R 5558 

SATY1 OOOOOOR 5358 

SATY3 OO00006R 5358 2776 

SATY4Y  O00016R 5358 3028 

SAUTOB 001434 8388 

SBASE 001602 916% 

SBOADR 001422 8338 

SBDDAT 001426 8358 

SBELL 001516 8678 3015 3043 

$COW1 001606 9188 

SCOW2 001610 9198 

SCHARC 013220 2793% 2803% 2810 2819% 28248 

SCKSWR= 222245 U 3439 

SCMTAG 001400 8218 1130 1131 1139 1145 1146 

scmi = 000006 8538 8548 8558 856% 857% 8588 8598 

$cm2 = 000014 8538 8548 8558 8568 8578 8588 859% 

$cn3 = 000006 8518 853 

scm4 == 000006 8598 8608 8618 862% 863% 864% 865% 

ScPUOP 001554 8908 

SCRLF 001523 869% 2792 2827 3023 3043 3059 3078 3083 3087 

SOOWO 001612 9208 

SO00W1 001614 9218 

$00W10 001636 9308 

$00W11 001640 9318 

$00W12 001642 9328 

S$00W13 001644 9338 

$00W14 001646 9348 

$00W15 001650 935% 

$O00W2 001616 9228 
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SODW4 


SMXCNT 


001622 


016522 
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9128 
3389 


1114 


34018 


81 


N 6 
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1202 
1167 
2690% 
3372 
1082 


3016% 
3038 


2827 


3386 


3027 
3043 


2703% 
3037 


1118 


2771 
2773 
3010% 
3395% 
1178% 


3043 
3940 


3388% 
3043 


3347% 
3376 


1166 


2832 3025 

2778 

3043 3210% 3326 
3402 


2689k  3017k 3018% 


3043 3394% 


3401 
3062 


3376% 3 =3392% 3397 
3393% 3401 


2771 3025 3391 


3370 


3019 


3401 


3372 


3043 


3378% 


3065 


3402 


3211% 


qe @te 


3341% 


SEQ 0078 
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ON = 000000 5338 26348 

SNULL 001454 8478 2798 2827 

SNNTST= 000000 13518 14068 14618 1516 15718 16268 16818 17368 17918 18468 19018 19568 20118 
20668 21218 21738 22258 22778 23298 23818 24338 24258 25378 25898 

SOCNT 014656 3130% 3159k 31728 

SOMODE 014660 3125k% 8=63129% = 33134 3137Kk = 148K |= 31748 

SOVER 016502 3350 3353 3369 3377 3387 33968 

SPASS 001534 8808  1166% 2693% 3383 3402 

SPASTM 002144 11168 

SPWRON 014662 1143 31788 

SQUES 001522 868% 2827 3043 

SROCHR= XKXKKK U 3439 

SROOEC= AXKKKK U 3439 

SROLIN= XXKKKK U 3439 

SROOCT= XKKKKK U 3439 

SREGAD 001460 8518 

SREGO 001462 8538  2922k 2927 

SREG1 001464 8548 2921k 2928 

SREGZ2 001466 8558 2920% 2929 

SREG3 001470 8568 2919k 2930 

SREGY 001472 8578 2918k 2931 

SREGS 001474 8588 2917k 2932 

SRZA = KKEKKK U 3439 

SSAVRE= KXKKKX U 3439 

SSCOPE 016170 1137 33358 

SSETUP= 000017 11198 1136 1137 1139 1141 1143 1145 1146 1148 3010 3035 3042 3336 

SSTUP = 177777 11198 

SSVLAD 016446 3361 33908 

SSVPC = 002136 10918 1096 

SSHR = 177400 5248 865 866 867 1145 1146 1148 1149 1353 1408 1463 1518 1573 


1628 1683 1738 1793 1848 1903 1958 2013 2068 2123 2175 2227 2279 
2331 2383 2435 2487 2539 2591 3001 3002 3003 3004 3005 3013 3020 
3032 3035 3043 3327 3328 3329 3330 3331 3352 3364 3366 3367 3370 
3371 3372 3379 3380 3381 3393 3396 3401 

SSWREG 001550 8888 1169 

SSWRMK= 000000 3331 3332 3368 

STESTN 001532 8798  3391% 

STIMES 001512 8658 1145% 3379k 3386 3389% 3401 

STKB 001446 8448 2717 2840 2848 3351 

STKS 001444 8438 2715 2838 3349 

STMPO }8=—6.001476 8598 

$TMP1 001500 8608 1372k 1384% 1388k% 1427k 1439K 1443K 1482k 1494" 1498K 1537% 1549% 1553% 
1592xk 1604% 1608k 1647x 1659% 1663k 1702K 1714% 1718% 1757K 1769% 1773% 8 1812% 
1824*% 1828% 1867% 1879k 1883k 1922k 1934% 1938k 1977k 1989% 1993% 2032% 2044% 
2048x 2087x 2099k 2103% 2139k% 2151% 2155% 2191% 2203% 2207k 2243% 2255% 2259% 
2295% 2307k 2311% 2347k 2359x% 2363% 2399% 2411% 2415% 2451k 2463k 2467% 2503% 
2515k% 2519 2555% 2567" 2571% 2607K 2619k 2623k 3490% 3501 3511% 3513k 3518 


$TMP2 001502 861% 34sox 3491k 3492k 3493k = 3494 3501% 3505*  3518%  3522% 

STMP3 001504 8628  3502k 3506k 3509k% 3519k  3523% 3526% 

STMPY 001506 8638 

$TMPS 001510 8648 

$™N = 000031 5358 1351 13538 1406 1408% 1461 14638 1516 15188 1571 15738 1626 16288 
1681 16838 1736 17388 1791 17938 1846 18488 1901 19038 1956 19588 2011 
20138 2066 20688 2121 21238 2173 21758 2225 22278 2277 22798 2329 23318 
2381 23838 2433 24358 2485 24878 2537 25398 2589 25918 
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STPB 001452 846% 2816% 2827 2848% 

STPFLG 001457 850% 2765 2827 

STPS 001450 B45# 2814 2827 2846 

STRAP 016524 1141 34108 

STRAPZ 016546 34218 3432 

STRP = 000015 te 34348 = =3435R 834368 8604378 = 3439 34408 B441# 3442# = 34438 8 =s444R = =—SUNER 44GE 
STRPAD 016560 3415 34328 

STSTMN 002142 11158 

STSTNM 001402 A ey 1334 1337 2688% 3012 3043 3049 3326 3347 3368 3390% 3391 
STYPBN= *XXKKK U 3437 

STYPOS= X¥xKKK U 3437 

STYPE 012742 535 27658 3425 3433 

STYPEC 013154 2795 2802 2809 28148 2815 

STYPOC 014460 31288 = =—3434 

STYPON 014474 3127 31308 3436 

STYPOS 014434 31238 ©3435 

SUNIT 001540 882k 

SUNITM 002146 1117% 

SUSWR 001552 8898 1204 

SVECT1 001576 9148 

SVECT2 001600 915% 

SXTSTR 016252 3343 33558 

SOFILL 014657 3124k =. 3128K = 3138-31738 

SYOCAT= KKKKXK U 3022 3352 

, = 017266 535% 569% 682% 685% 690% 7458 7468 8208 871 10778 1091 10928  1094% 


10968 1102 11038 1105 11078 1134 1148 1149 1375 1379 1394 1430 1434 
1449 1485 1489 1504 1540 1544 1559 1595 1599 1614 1650 1654 1669 
1705 1709 1724 1760 1764 1779 1815 1819 1834 1870 1874 1889 1925 
1929 1944 1980 1984 1999 2035 2039 2054 2090 2094 2109 2142 2146 
2161 2194 2198 2213 2246 2250 2265 2298 2302 2317 2350 2354 2369 
2402 2406 2421 2454 2458 2473 2506 2510 2525 2558 2562 2577 2610 
2614 2629 2827 3043 3097%# 3189 3205 33168 33188 33208 3401 3402 


.BEGIN 003310 1196 1207 1210 1325% 2705 
.CONVR 013634 29378 3445 

. EOP 012224 26408 

. INSTE 013332 28518 3441 

. INSTR 013224 28308 3440 

.INST1) 013244 28348 2843 2853 

. MSG 013246 2717k 2718k 2719 2830% 2835% 
PARAM 013342 28588 3442 

.PFAIL 014662 1173 31798 3200 

.RESOS 013602 29278 = 3444 

.SAVOS 013542 29138 3443 

. SCOPE 016170 33398 

.SCOP1 012720 27438 3439 

.SETFL 014012 29838 2994 3446 

. START 002152 686 11288 1180 2654 

.SASTA= KeeKRK U 535 


.$X = 002136 11028 1107 


STYPEX 013222 2820 2822 28258 
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COMMEN 


SGETPA 


31-MAY-77 O9: 
1376 1380 
1651 1655 
1926 1930 
2195 2199 
2455 2459 
1351 1406 
2173 2225 

679% 

2633 

558 

679% 

679% 

1353 1408 
2175 2227 
3336 

1352 1407 
2174 2226 
3398 

34258 = 3434 
1128 

679% 816 
1736 1791 
2537 2589 
1150% 

3065 3089 
132 
3312 

569 

2706 

1202 
2934 
2633 

1241 1306 
1220 1231 
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48 


1395 
1670 
1945 
2214 
2474 


1461 
2277 


1463 
2279 


1462 
2278 


3435 


871 


1846 
2750 


1310 
1251 


8 PAGE 85 
CROSS REFERENCE TABLE -- MACRO NAMES 


1518 
2331 
1517 
2330 


3436 
874 


1901 
2997 


1314 
127? 


1573 
2383 


1572 
2382 


3479 


1089 


1956 
3053 


1628 
2435 


1627 
2434 


3440 


1099 


2011 
3100 


0 7? 


1683 
2487 


1682 
2486 


3441 


1101 


2066 
3323 


1738 
2539 


1737 
2538 


3442 


1108 


2121 
3404 


1793 
2591 


1792” 


2590 


3443 


1351 
2173 


1846 


1848 


1847 
2640 


3444 


1406 
2225 


1901 


1903 


1902 


3445 


1461 
2277 


3446 


1516 
2329 


1596 
1871 
2143 
2403 


2011 


2013 


2012 


1571 
2381 


Wi8,c0rhr 4 


SEQ 0081 


2066 


2068 


2067 


1626 
2433 


—————— 


; ss 
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} 
SGETSY 533% 1288 
SHEADE 5248 558 

SINSTR 535% 2827 

$1SOB 549% 


SPOKER 54u5# 1366 1421 1476 1531 1586 1641 1696 1751 1806 1861 1916 1971 2026 2081 
Zi22 2185 2237 2289 2341 2393 2445 2497 2549 2601 

SRCNET 556% 

SRECAC 5448 

SREG 5358 2910 

SRESET 5378 1353 1355 1408 1410 1463 1465 1518 1520 1573 1575 1628 1630 1683 1685 
1738 1740 1793 1795 1848 1850 1903 isos 1958 1960 2013 2015 2068 2070 2123 
2125 2175 2177 2227 2229 2279 2281 2331 2333 2383 2385 2435 2437 2487 2489 
2539 2541 2591 2693 

SRXACT 543% 

SSCOPE 5338 3321 

S$SCOP 1 5348 2740 

SSE TFL 5338 2977 

SSE TVE 528% 679 

SSTART 5338 1120 

SSTRIP 5508 

SSYMBO 524% 74? 940 

sews a 1362 1417 1472 1527 1582 1637 1692 1747 1802 1857 1912 1967 2022 2077 

STRPAR F} 

STSTNO 5338 1351 1406 1461 1516 1571 1626 1681 1736 1791 1846 1901 1966 2011 2066 
2121 2173 2225 2277 2329 2381 2433 2485 25237 2589 

SUN I BU 5368 

SVARIA 5318 30) 

SWOROF 5478 

SWORDO 5468 1343 1398 1453 1508 1563 1618 1673 1728 1783 1838 1893 1948 2003 2058 
2113 2165 2217 2269 2321 2373 2425 2477 2529 2581 

SWORDP Su8e 

SSCMRE 8148 853 854 855 856 857 858 

S$SCMTM 8148 859 860 861 862 863 864 

S$SESCA 6798 ; 

SSNENT 6798 1351 1406 1461 1516 1571 1626 1681 1736 1791 1846 1901 1956 2011 2066 
2121 2173 2225 2277 2329 2381 2433 2485 2537 2589 

$SSET 34258 3434 3435 3436 3439 3440 3441 3442 3443 3444 Buus 3446 

SSSETM 11668 

$SSKIP 679% 

_ EQUAT 5248 569 

. HEADE 5248 

_ SETUP 5248 1119 

_GACTI 5248 1087 

_ SAPTB 5248 872% 

_ SAPTH 5248 1097 

_ SAPTY 5248 535 

_ SCATC 5248 
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DZOURB. M11 31-MAY-77 09: 48 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0083 
. SCMTA 5248 814 
. SEOP 5248 


. SERRO 5248 2995 
.SERRT 5248 3051 
. SPOWE 524% 

. SSCOP 5248 3321 
. STRAP 5248 3402 
_ STYPE 5248 2748 
_ STYPO 5248 3098 


ABS. 017266 000 


ERRORS DETECTED: O 


DZDURB. OZDURB/SOL/CRF =DZ0UR1/EQ: RUNB, DZDUR2- DZ2DURB 
RUN-TIME: 21 12 1 SECONDS 

RUN-TIME RATIO: 234735=6. 6 

CORE USED: 30K (59 PAGES) 


| 
| | | 
| 

| | 
| j 


